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ABSTRACT 


JULEY  KNOX   LIBRARY 
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The  aesign  of  a  CflBQL  editor  And  interpreter  is  explored 

which  uses  simple*  straightforward  algorithms  similar  to  the 

approach    found  in    prooramrr  ab  1  e    calculators.       The 

algorithms    3r^  desianed   to   He   implemented   using   the 

microinstructions  o  *     a     hiah-performance     bit-slice 

microprocessor.   A  possible  machine  design  usino  a  'family  of 

m i c roorogr ammab 1 e  f our-bi t -S 1 i ce    hioolar    circuits    is 
out  1  i ned . 
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I.   INTPODUCTION 


The  objective  of  '■his  thesis  was  to  investigate 
the  f  e  a  s  i  b  i  1  i  t  v  of  a  specialized  n^icrocoinouter:  a  "  C  0  P  0  L 
calculator."  This  Pup0L  calculator  *oula  interpret  onlv 
LOtiOL  proarams  a  n  o  was  to  be  d  e  s  i  o  n  e  a  usinq  s  i  m  o  1  e 
algorithms,  similar  to  a  p  rooramrrab  1  e  calculator,  wnich 
would  be  imclemen^ec  in  microcode  on  a  high-performance 
m  i  c  roorocessor . 

CPbOL  was  chosen  ^s  the  source  language  o  °  c  a  u  s  e  it 
is  used  throuqnou*"  tKe  Mavy  and  tne  business  world.  Tne 
version  of  CuPUl.  useo  for  t  H  i  s  Tiacninp  is  "1ICPu-CPnOL,  which 
was  developed  by  L T  A.  S.  Craig  ourino  tne  course  c*  his 
thesis  work  at  tne  M  a  v  a  1  Postoraduate  Scnool  (see  Peference 
1  )  .  M TCPQ-CP6PL  is  an  extension  of  tne  U.S.  N aw  defined 
Hvpo-COBUL,  w^ich  represents  the  minimum  acceotacle  workina 
subset  of  COBOL  witHir  th«  Navy. 

The  use  of  a  oure  interpreter  to  execute  CURUL 
proarams  can  be  considered  feasible  sinre  CObPL  is  Heavily 
I/O  dependent.  Thus  the  time  required  to  mteror^t  t  n  ■» 
source  code  is  small  ^n  comparison  to  t^e  I/O  aelays. 

The  cr^liminarv  specification  of  the  machine 
hardware  was  completed  using  the  Advanced  vicro  Pevices 
Am^PuO  family  of  ro i c r op r oc r amab 1 e  high-performance  circuits. 
T  h  i  s  f ami  1 v  is  centered  around  a  bipolar,  four-hi r-sl ice 
microprocessor  L  s  T  cnip.  P  i  o  u  r  e  7  contains  a   s  v  s  f  e  m   assign 


using  this  family  o  *  circuits.  Tn  addition/  the  use  of  a 
highly  flexible  "meta-assempler/"  which  simplifies  the 
designers'  task  of  creating  microinstructions/  is 
i  n t  roduced . 

[he  last  major  goal  was  the  design  of  tne 
algorithms  to  oe  used  to  int°roret  CObOL  in  the  macnine 
microcode.  This  was  accomplished  using  the  1 anauage  L, 
which  is  available  on  the  UN  I*  oo^ratina  system  at  the  Nava1 
Postgraduate  School.  T^e  software  which  was  imn lamented 
includes  a  workina  editor  and  interor»ter.  The  desion  o  *  the 
editor  and  the  interpreter  stressed  simolicitv  rather  than 
efficiency.  Concepts  such  as  reolacina  pointers  *  i  t  H  a 
linear  search,  A3CIT  character  arithmetic/  ano  storage  of 
variable  values  within  the  source  cooe  were  used.  Tn<>se 
algorithms  must  now  oe  converged  t o  microcode  and  run  on  a 
development  system  to  d°ter|ri"e  if  the  execution  ti^es  are 
fast  enough  to  make  the  COBOL  calculator  concept 
operationally  feasible. 


II.   SOFTWARE 


The  COBOL  machine  described  here  consists  of  the 
following  software  modules:  a  monitor,  an  editor,  a  pure 
interpreter,  and  a  debunger.  Of  these,  the  editor  and  the 
interpreter  were  desianed  and  i  mo  1  enen  t  ed  as  part"  of  this 
thesis,  both  the  "di  tor  and  the  interoreter  were  written  in 
the*  systems  pronramming  lanauag0  'C'  and  were  comoiled  and 
tested  on  the  U  N  I  y  operatinc  system.  The  s^ele'on  monitor, 
which  was  necessary  for  testing  purposes,  nas  not  been 
included.  The  oebugoer  will  be  hrie* I v  described  as  a  simole 
extension  of  the  interpreter. 

The  editor  and  th«  interpreter  were  oesianeo  for 
simplest  implementation.  Tn  general,  eacn  module  consists  o* 
a  string  of  subroutines  which  arp  as  independent  as 
pnssible.  The  objective  was  to  develoc  simpler 
straiantforward,  linear  pronram  modules  that  would  eai  t  and 
interpret  CORUL  and  be  short  enough  to  be  stored  in  k  e  a  d 
Only  Memory  (.°0>!). 


A.   THE  EDITUP--COED 


The  editor  is  the  user's  means  of  com muni  cat ina 
with  the  C  0  B  n  L  machine.  Aside  from  accepting  CObOL  pronrams 
line-by-line  from  the  console  and  providing  the  stanaard 
edit  functions*  the  editor  performs  some  functions  norma' lv 
performed  by  an  interpreter/compiler.  These  functions 
include  creatine!  and  maintaining  a  symbol  table  and 
replacing  the  COoHL  scurc°  words  in  the  orocadure  division 
with  t  o  <  e  n  numbers.  This  greatly  simolies  the 
interpretation  onase  ana  doi°s  not  create  a  suns^antial 
overnead  during  editing. 

rthen  invoked*  the  pqi tor  si  tner  creates  a  new 
file*  or  opens  an  already  existino  file  bv  loaaina  it  into 
memory  from  a  random  access  uevice.  tach  CUpul_  statement  to 
be  entered  into  this  +  i  1  e  must-  ^eoin  with  a  five  character 
line  index.  The  first  character  o  *  this  i  n  a  e  x  deoe^as  uDon 
the  division  of  the  COB^L  oronram  which  is  beina  euitted 
(see  APPENDIX  C) . 

The  Icentifi  Cation  and  Fnvironrrent  divisions  rirp 
stored  as  tney  a^ e  entered  from  the  user's  console  in  lower 
case  ASCII  code  (ex^ensioo  t o  allow  unper  case  will  oe 
discusseo  later)  »i th  ^ne  UuTX  newl me  character  (rK)  b  e  i  n  a 
rpolaced  with  a  so^cial  '  F  G  L  '  character  for  ease  of 
detect-  inn. 

T^e  Data  division  is  also  stored  in  lower  case 
ASCII  code.  Whenever  an  identifier  is  declared*  however*  an 
entry  is  ^ade  in  *  h  <=>   symbol   t  a  b  '  e  .   The   symool   table   is 


simplv  a  list  of  or i nt names ,  each  a  maximum  of  lb  characters 
lonq.  The  printnames  cf  all  COBOL  reserved  woras  are  entries 
in  the  symbol  table.  For  a  completed  COBPL  nrcgram,  there 
exists  a  one-to-one  co r resoonaence  oetween  COBOL  reserved 
words,  acceptable  punctuation,  all  program  identifiers, 
literals  and  symbol  taole  entries.  The  relative  adaress  of  a 
printname  within  the  symbol  table  is  the  entry's  to^en 
number,  allowina  simple  conversion  between  token  nunoers  and 
printnames. 

The  Procedure  aivision  is  converted  entirely  to 
tOKen  numoers  bv  the  editor  exceot  for  the  five  cnaracter 
line  numoer  that  must  o  rec  e  e  d  ev°ry  C  0  b  n  i_  statement.  All 
identifiers  must  be  declared  in  thp  Hata  aivision,  ana, 
aside  f  r  o  ^  comments,  only  reserved  woras  ana  literals  are 
allowea  in  the  Procedure  division.  Thus,  any  undeclared 
identifiers,  or  tvpinc  and  spel 1 ing  errors  arp  caunht  here 
in  the  edit  phase  where  they  can  b  «  easily  corrected.  It  is 
mandatory,  therefore,  to  enter  the  entire  Date  aivision 
oefore  entering  the  Procedure  division. 

The  editor  operates  in  memorv  in  the  f  o 1  1 o w  i  na 
way.  When  invoked,  the  editor  initializes  two  memorv 
pointers,  col  and  co<?  (see  Fioure  1).  Col  is  the  cointer  in 
low  memory  which  always  addresses  tn*»  last  ovte  accessed. 
This  byte  was  either  newlv  added,  modified,  or  just  examined 
by  the  uspt,  The  no  inter  in  high  memorv  is  cd^,  which 
addresses  the  remaininq  C^bOL  Drooram,  if  it  exists,  or  tne 
last  available  h  y  t  e  in  memory  (see  Fioure  2 )  .  N'emorv  is  thus 
divided  into  three  a  r  p  a  s  :  area  I  in  low  m  p  m  o  r  v  ,  area       IT   in 


1  0 


high  memory*  and  the  work  soace  in  the  middle.  Console  input 
characters  are  queued  in  a  line  buffer  until  a  period  and  a 
carriage  return  character  are  entered.  At  this  time/  the 
entire  line  is  written  into  memory/  heainnina  with  t^e  last 
accessed  byte  (the  one  addressed  by  col).  Characters  (bytes) 
a^e  constantly  beino  moved  up  or  down  in  memory  as  necessary 
to  open  the  work  space  at  the  point  in  user's  COBOL  program 
where  editino.  is  takino  place  (see  Fiaure  3).  The  symbol 
table  is  storea  in  a  temporary  data  area  during  tne  edit 
phase . 

when  the  user  t«Tminaf es  ♦•he  edit  phase/  tne  work 
soace  is  closed  Dv  ^ovi^q  the  entire  program  down  into  low 
memory.  The  svmbol  table  is  then  written  at  the  ena  of  the 
CObOL  proaram/  directly  following  its  end  of  *  i  1  e  (EOF). 

The  edi*-eo  C^BCL  program  consists  of 
Identification,  Fnvironment,  and  Data  divisions  in  fneir 
oriainal  source  cooe/  the  to<enized  Procedure  division,  and 
the  symoo)  table,  [r  this  form,  it  can  either  oe  stored  on 
some  random  access  device  for  suoseouent  interpreting,  or  oe 
interpreted  directly  f  o 1  1  o  w  i  no  the  termination  of  edit. 


1  1 
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Figure  1 . 

Initially,  all  of  memory 
is  viewed  as  work  space. 


Figure  2  . 

CP1  is  the  byte  offset  of 
the  last  character  entered 
by  the  user.   CP2  stays  at 
its  initialized  value  until 
the  first  search. 


AOOOOid  division 
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CP2 


AO  0 1  Op rogr am-id 
test . A0020author . 
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Work 
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Area  II 


F  igure  3 . 

When  the  editor  must  access 
a  particular  line,  in  this 
case  A0010,  bytes  are  moved 
between  Area  I  and  Area  II 
until  the  line  is  found. 
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CPl 


C0100     03  identifie 
rl    pic  9.99  value  0=2.30 


CP2 


Z0110     03  identified 


Identification  and 
Environment  divisions 


beginning  Data  division 


Work  Space 


< 


remaining  Data  division 


Procedure  division 


Symbol  Table 


F  igur e  4 . 

Memory  as  viewed  by  the  interpreter 
after  storing  a  value  into  identifierl 
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B.   THt  INTERPRETER--COIN 

Ahen  the  interpreter  is  invoked/  if  the  edited 
CObOL  prooram  aoes  not  already  exist  in  memory,  it  is  loaded 
one  byte  at  a  time  heoinnina  with  relative  address  0.  Next/ 
the  beainnina  of  the  procedure  division  must  be  located.  As 
the  search  proceeds,  bytes  are  moved  ud  in  memory  start  ina 
wit^  the  last  byte  of  the  symbol  table  until  the  first  line 
number  of  the  Procedure  division  ^as  been  moved.  The  work 
soace  in  the  middle  of  the  memory  array  is  now  defined. 

The  interpreter  then  initializes  all  the 
identifiers  whose  initial  value  has  been  defined  by  the  user 
with  the  VALUE  option.  Taentifier  values  ar«  stereo  in  t: h e 
Data  division  following  its  PTC  ana/or  VALUF  clause.  Bytes 
a<"e  moved  up  in  memorv  until  the  work  soace  beoins  at  the 
ena  of  the  particular  declaration,  ^nv  value  not  exceedina 
the  lenath  of  the  work  soace  can  be  stored  nere.  All 
identifier  values  are  stored  in  the  Data  division  in  this 
manner.  The  interpreter  writes  tKe  desired  value  into  tne 
work  soace,  thereby  making  it  a  oart  of  the  Hata  division 
(see  F i au  re  4)  • 

A  proaram  counter  is  initialized  to  the  relative 
address  of  the  beginning  of  the  Procedure  division.  This 
counter  is  incrementeo  byte  by  byte  as  the  division  is 
scanned  for  grammatical  correctness.  Fach  complete  CuROL 
statement  is  executea  as  it  is  scanned. 

The  first  bvte  after  each  line  number  is  the  token 
for   a   Keyword   that  determines  the  '■yoe  of  COBOL  statement 
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which  follows.  Rased  upon  this  token,  the  interpreter  calls 
a  subroutine  to  handle  tKe  statement  form.  The  subroutine 
scans  the  statement  (token  chain)  for  acceptability  until 
the  'EHL*  character,  inserted  by  the  editor,  and  performs 
the  desired  action.  All  embedded  blank,  t  a  o  ,  and  comma 
tokens  are    accented  bv  the  interoreter. 

If  a  a  r  am'ma  t- i  c  a  1  error  (misplaced  or  unexpected 
token)  is  scanned,  an  error  f  1  ag  is  set  that  causes 
execution  to  stop  with  an  appropriate  error  messaae  s^nt  to 
the  user.  At  this  coin*',  a  oebuqoer  could  he  entered.  Since 
all  identifier  values  are  a  v  a  i  1  a  o  1  e  in  the  n  a  t  a  division  and 
t^e  current  line  numo^r  is  alwavs  accessible,  an  error  could 
De  corrected  and  scannina/execution  could  resume  at  the 
statement.  Normal  execution  halts  when  the  token  for  SfpP  is 
sc  anneo . 

.vhen  a  jump  is  reaui  r«>a  to  execute  a  particular 
statement,  the  oroaram  counter  is  reset  to  the  first  token 
of  tne  Procedure  division  and  the  first  tmcen  of  each  1 ino 
is  scanned  until  the  ^esired  destination  is  founa.  Execution 
of  the  PEPF0KM  verb  involves  a  return  j umo  ana  therefore 
requires  the  return  token  to  be  saved.  At  present,  an  eioht 
level  software  stack  is  implemented  which  allows  PE^rOR^ 
statements  to  be  nested  eiqt't  aeeo.  [his  could  be  changed, 
however,  since  overall  machine  memory  size  is  the  onl v 
restriction. 

Each  time  an  identifier  value  is  fetched  or 
stored,  the  following  sfeos  are    executed: 

1)   The  token  number  is  ^aoped   ♦"  o   its   printname 


lb 


(the  token  number  is  the  mapx  of  the  orintname  in 

the  symbo 1  table). 

2)       Bytes  are  moved  sequentially   up   or   down   in 

memory    between   Area   I   ana   Area   II   unMl   a 

Drintname  match  is  found. 

7>)       Scan  continues  from  here  until  an       eaua  1   sion 

or  'EOL'  character. 

4 )        The   value   is   tnen   either   written   from   a 

scratch   buffer   into  the  work  soace  at  this  point 

or  written  from  the  Oata  division  into   a   scratch 

buffer   for   furtner   action.   I  *       a  READ  or  /<  R  I  T  t 

statement   is   oeing   orocessed,   the   PIl   clause 

determines   the   format  in  which  the  oata  value  is 

written.  Otherwise/  it  is  simply   coDiea   byte   by 

byte  as  it  aopears  in  t-ne  buffer  or  memory. 

The  arifnmetic  routines  operate  uoon  the  ^SCII 
characters  stored  in  the  n  a  t  a  division  if  the  ooerana  is  a 
variable/  or  upon  the  svmbol  table  in  the  case  of  a  literal. 
tach  routine  uses  loo^-up  taoles  to  perform  its  oDeration  of 
addition,  subtraction,  multiplication*  or  aivision.  The 
ooerands  ar°  loeaed  into  two  variaple  lenath  buffers,  called 
x  and  y,  and  operated  uoon  seouentially  o^e  pair  of  bytes  at 
a  time  oeginning  with  the  riahtmost  byte  of  each  Duffer.  As 
defined  by  MICWO-CuRuL,  the  rpsulf  is  written  into  thp  Uata 
aivision  area  corresponding  to  the  secona  ooerana.  It  should 
be  noted  that  as  the  LSI  circuits  are  aevelopea/  the  table 
lookuo  method  can  easily  be  reolaCPO  by  using  four-bit 
adaer/suDtractor  and  multiplier  Chios. 


lb 


T.   ThF  TARGET  MACHINE 


One  major  development  which  makes  a  CObOL  machine 
feasible  is  the  wiae  availibility  of  hiqh  per  f  ormance  b  i  t  - 
slice  microprocessors  on  LSI  chips.  A  bit-slice  micropro- 
cessor is  a  circuit  which  has  all  the  recui  rea  inputs  and 
outputs  of  a  basic  orccessor  function,  such  as  the  ALU,  but 
is  onlv  two  or  four  Hits  wiae.  Any  number  of  these  two  or 
four  bit-slices  are  connected  in  parallel  to  allow  process- 
ing of  data  words  of  any  desired  width.  Thus,  the  s  v  s  f  e  m 
designer  is  able  to  S  D  e  c  i  f  y  a  processor  which  meets  particu- 
lar reouirements.  This  flexibility  is  hiohly  a  e  s  i  r  a  b  1  e  in 
many  applications  where  the  oDtimum  w  o  r  a  size  is  nreater 
than  the  common  eight  oi  ts  available  on  m  o  s  f  fixed  architec- 
tured  m i c roorocesso r s . 

The  majoritv  of  Dit-sHce  microprocessors  acM»ve 
their  high  performance  usina  bipolar  fecnnolooy.  The  commer- 
cial development  of  Dipolar  TTL,  ECL,  ana  Schottky  bipolar 
DTL  chips  represent-  a  major  step  in  increasing  performance. 
bipolar  switching  circuitry  is  ten  to  a  hundrea  times  faster 
than  similar  M  0  S  switch  i  no  circuitrv. 

The  a i saavan t age  of  Dipolar  circuitry  is  that  it 
cannot  yet  De  r  a  c  k  e  a  as  densely  as  the  WQS  eoui  valent  >  thus 
requiring  more  cnips  for  a  niven  number  of  circuits.  Tn  manv 
bit-slice  applications  this  is  not  a  sionificanf  disadvan- 
tage wnen  compared  witn  the  increase  in  soeea. 
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The  second  major  development  which  effects  the 
COBOL  "calu'ator"  is  the  introduction  of  hit-slice  micropro- 
cessor families  whicn  are  microorogrammable.  Microprogram 
logic  is  placed  in  Read  Only  ^  e  m  o  r  y  (PQM)  ana  replaces  the 
usual  nardware  random  logic  circuits.  The  advantages  are 
found  in  the  more  ordered  approach  to  function  implementa- 
tion and  the  ease  of  reolacino  the  loaic.  The  logic  to  de- 
fine a  function  is  stored  in  Rrogrammaole  Read-Only  Memory 
(PROM)  as  a  block  o  '  microinstructions  and,  if  a  change  is 
desired,  a  new  P  R  U  ^  is  oronrammed  with  different  microin- 
structions. A  furthpr  advantaoe  is  the  ability  to  define  a 
powerful  instruction  set,  called  macro  instructions  for  an 
architecture  wh*»re  each  instruction  is  actually  imolemented 
with  several  microinstructions.  This  increases  trie  perfor- 
mance of  the  machine  sianificantly  since  the  access  time  for 
KOM  is  two  to  ten  times  faster  than  Random  Access  Memory 
(.RAM)  where  microinstructions  are    stored. 

T^e  most  common  uses  *or  hit-slice  microorogramm- 
able machines  include  d  i  a  i  t  a  1  filters  ana  emulators.  Pit 
slice  processors  a  re  particularly  well  suited  for  emulation, 
since  a  given  mac ro i ns t rue t i on  can  be  mapoed  to  a  set  o *  mi- 
croinstructions which  execute  the  desired  function. 

Although  emulation  is  effective,  the  COBOL  calcu- 
lator does  not  emulate  a  machine  languaae.  The  necessary 
logic  to  interpret  a  vICRO-C0P0l  program  is  in  microcode  in 
the  PROM.  riv  imolementinq  the  COBOL  editor  and  interpreter 
in  microcoae,  the  machine  oecomes  a  COBOL  "calculator"  and 
thus   it   will   only  process  vICR0-C0p0L.  The  interpreter  is 
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implementea  in  microcode  t-o  increase  performance^  anew  as 
noted  previously*  the  algorithms  were  extremely  simole.  With 
s i mn 1 e  aloorithmSf  balanced  bv  a  high  oerformance  processor, 
it  is  possible  to  keeo  the  overall  length  of  the  program 
small  enough  to  write  in  microcode*  while  retaining  a  feasi- 
ble execution  time. 
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A.    THE  Am2900  FAMILY 

The  COBOL  calculator  was  desianed  within  the  limi- 
tations of  a  widely  available  microproarammable  four-pi t- 
s'ice  Dipolar  microprocessor  -family,  the  Am2900  series, 
developed  oy  Advanced  Micro  Devices  (see  Reference  2 ) . 

1.  Am^Ot 

The  Am^°01  is  four  bit-slice  Dipolar  microoroces- 
sor  cnip  which  can  be  easily  cascaded  to  snv  number  of 
chics.  Fiaure  5  is  the  bloc^  diagram  of  this  chip.  The  <£  Q  0  1 
consists  of  16  worxinc  reaisters/  a  u  register,  shift  multi- 
plexers* and  an  eight-function  A  |_  I  '  .  It  features  simultaneous 
access  to  any  two  registers*  and  left  ana  right  shift  opera- 
tions inoependent  of  fhe  alii.  The  machine  cvcle  times*  based 
upon  a  two  reqister  add  function,  is  110  nanoseconas  for  the 
Am^fQol  and  55  nanoseconds  for  the  new  Am^QOOA. 

2.  A*2°Q9     and  bw?9]   1 

The  Af£90Q  is  a  four  bit  cascadable  microprogram 
sequencer.  Its  block  diaoram  is  shown  in  Figure  6.  The  2  Q  U  ° 
controls  the  execution  seouence  o  *  a  series  of  microinstruc- 
tions. The  address  of  the  next  microinstruction  to  be  exe- 
cuted can  come  from  the  prooram  counter  r  p  g  i  s  *■  e  r  ,  the  stack, 
the  internal  address  reaister,  or  a  direct  innut.  The  latter 
two  sources  aMow  for  a  ^  n-wav  branch  at  any  point  in  the 
microprogram.  The  s'ack  allows  four  levels  of  suoroutine 
calls.  The  internal  address  register  ( I  A  R  )  can  be  connected 
to   the   pipeline   reaister   or  the  mapping  PPGM  as  shown  in 
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Figure  7  .  The  outout  can  p  e  set  to  the  first  microword 
(0000)  using  the  zerc  input.  Each  output  bit  can  be  "GP;eaM 
for  conditional  instructions. 

The  Am^Qll  is  similar/  exceot  the  direct  incut  is 
connected  to  the  infernal  register  and  the  n  k  inputs  are  re- 
moved . 

3  .   Additional  Circuits 

The  A m 2 ° 0 2  is  a  high-speed  looK-ahead  carry  gen- 
erator providing  a  look-ahead  carry  for  up  to  *our  Arr2°01 
Chios.  The  Am^QOS  and  A  t.  ?  9  0  6  are  quad  two-input  oppn- 
col  lector  bus  transceivers.  Additional  chips  which  ^re 
available  include  four-bit  registers/  counters*  multi- 
plexers/ adders/  and  multipliers.  Read-Only  Memory  (  P  A  ivi )  and 
Proarammed  feaa-Onlv  v  e  m  o  r  y  (  P  p  n  m  ")  are  available  in  several 
sizes  and  access  sceeds.  Chics  wnich  will  soon  become 
available  include  a  Direct  Me^ory  Access.  Reference  2  con- 
tains  a  derailed  explanation  o*  these  and  other  circuits. 
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8.   MACHINE  DFSTGN 

Figure  7  is  a  detailed  block  diagram  cf  the  pro- 
Dosed  COBOL  calculator.  The  machine  is  desianed  around 
several  Dasic  blocks:  a  4096  bv  2fl-bit  microproaram  PnUv*  a 
16-bit  AlUi  an    fl-bit  cata  bus*  and  a  oipeline  register. 

The  oioeline  reaister  holds  the  next  instruction 
to  be  executed,  ft  h  i  1  e  an  microinstruction  is  beino  executed* 
the  next  instruction  is  moved  into  the  oioeline  reaister. 
Within  one  machine  cycle*  the  sequencer  fields  ar^  decoded 
and  the  next  instruction  address  is  available  to  PRHH.  This 
fetch  is  concurrent  with  anv  ALU  operations. 

T^e  si  z°  of  the  microorogram  PROM  was  determined 
by  the  estimated  si  zp  o*  the  editor  ana  the  interpreter. 
This  estimate  was  made  by  examining  the  size  of  the  POp-il 
assembly  lanauage  version  of  these  software  modules  (  3  0  U  0 
lines  of  assembly  code  and  f  ahl  esl  .  /jhile  the  correspondence 
is  not  one-to-one*  anv  increase  in  si  ?e  due  to  microcoding 
will  be  partially  offset  by  eliminating  routines  and  state- 
ments which  were  inserted  to  permit  execution  under  the  u  ^ IX 
operating  svstem. 

■The  data  bus  size  was  determined  by  the  nature  of 
the  interpreter.  Only  ASCII  characters  ana  8  - b  i  t  token 
numbers  are  manipulated.  Thus*  only  an  8-bit  data  bus  is 
requ  i  red . 

The  ALu  hancles  two  tvpes  of  data.  First,  the  ma- 
jority of  operations  will  involve  characters  and  token 
numbers  of  eiaht  bits.  Thp  second  tvpe  is  memory  address  da- 
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ta,  such  as  the  prooram  counter.  This  requires  16  bits  for  a 
64K  byte  memory  and  ?0  cits  for  a  one  megabyte  memory.  Ran- 
dom Access  Memory  of  64«  should  dp  sufficient,  but  if  the 
laraer  memorv  is  required  another  Am2901  ang  Am<dQ02  can 
easily  be  connected. 

In  the  block  diagram,  Figure  7 ,  the  sugcesteo  LSI 
Chios  for  t^e  major  blocks  are  noted  alono  with  the  number 
required  for  the  function  in  parenthesis.  Table  1  lists  the 
total  circuits  which  are  r  e  a  u  i  r  p  o  to  imclement  th*»  COPuL 
machine.  The  looic  diaorams  and  detailea  descriotion  of 
these  circuits  ar^    in  Reference  2. 

Thr»e  blocks  ar<*  not  discussed  in  detail:  Direct 
Memorv  Access  (DMA),  Interrupt  Control  Unit  ( I C  U ) /  a  n  o  the 
Sync  and  Control  Looic.  Sugaestea  architecture  ^av  be  found 
in  Reference  2  and  a  listing  of  the  reaui  red  circuits  is  in- 
cluded in  Taole  1. 

One  family  of  blocks  detailea  in  thp  machine  Hi  - 
agram  are  the  bus  franceivers  which  interface  between  the 
various  blocks  and  t  h  p  data  anq  address  busses.  These  may  be 
a  combination  of  A  m  ?  9  f1  o  anq  A  m  d  Q  0  7  or  A  nr<  2  6  b  1  0  chios. 
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Figure  7.  COBOL  Calculator 
Block  Diagram 
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Table  1 .   LSI  Chips  reauired  for  the  COBOL  Calculator 


CHIP 
&m2901 
Am2902 
Am2905/b/7 
fim2909 
Am291d 
Am?97bl 
AmQiaO 
Am25L307 
Am25L3151 
Am25LStbl 


NUMbFK 

n 

1 
ia 

3 

1  a 

59 
128 

1 
1 
1 
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C.   AMQASM  /  80 

The  next-  step  in  the  development  of  the  CDbOL  cal- 
culator is  to  convert  the  alaorithms  to  microcode  usinn  the 
"meta-assemb 1 er"  AMOASM/80.  AM0ASM/^U  is  a  m i c roprooram  as- 
sembler which  operates  on  the  INTEL  I  h  T  E  L  L  E  C  MD3-00S  system 
under  the  ISIS-TI  ooerating  system.  A  me t a-assecb 1 e r  differs 
from  a  conventional  assembler  in  that  the  user  must  aefine 
not  only  labels  ana  symbols  but  also  woro  lenaths  and  for- 
mats. Very  little  information  is  predefined  in  a  meta- 
assembler,  allowing  the  user  a  areat  flexibility  in  matchina 
microprograms  to  a  haraware  conf  iaurat  ion.  A  M  0  A  S  N'  /  6  0  is  suf- 
ficiently general  ana  powerful  to  be  used  for  nearly  anv 
microDrogrammable  ^acnine.  How  ever ,  it  was  designed  espe- 
cially for  the  ^m?90u  family. 

The  assembler  ocerates  in  two  phases:  the  Defini- 
tion phase  and  the  -ssemply  chase.  The  Definition  phase* 
which  is  executea  first*  establishes  the  tables  to  map  each 
user  defined  format  and  constant  names  to  the  corresponding 
bit  patterns.  The  lenoth  of  each  microinstruction  woro  can 
oe  aefinea  *rom  1  to  1  2*  hits.  A  microinstruction  worn*  mav 
consist  of  one  format/  or  several  overlapping  formats.  A 
format  defines  the  fields  of  a  microinstruction  and  their 
usaae.  Fields  ma/  contain  specified  numeric  pit  patterns: 
either  hexidecimal/  decimal/  octal/  or  binary.  The  field  may 
also  contain  a  variaple  field  to  be  filled-in  ourino  execu- 
tion, or  a  "don't  care"  field  to  be  ionored/  which  is  usu- 
ally a  filler  between  other  fields.  The  "don't  care"   fields 
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are  used  when  formats  a^e  overlapDed.  Thai"  is*  formats  can 
be  overlapped  if  the  ce^inerl  fields  of  one  format  correspond 
to  "don't  care"  fields  of  the  other  format. 

The  Assembly  chasp  uses  the  output  ohase*  and 
operates  similar  to  a  more  conventional  asse^cler.  This 
phase  reads  a  symbolic  orogra™/  performs  the  common  assem- 
bler functions  and  croduces  a  binarv  output*  listings*  and 
tables*  which  are    retained  for  execution  or  pos t -oroc ess i ng . 

Ihe  Pos t -o recess  1 ng  phase  uses  tne  Assembly  phase 
output  to  create  naoer  t  a  o  e  s  suitaole  for  use  in  program  mi  no 
PRQM's.  The  user  mav  define  the  organization  of  the  HPQW  ma- 
trix and  then  create  a  tape  for  anv  oarticular  row  or 
column.  This  will  allow  the  user  to  organize  the  microoro- 
gram  memorv  as  desired.  Further*  it  is  relatively  easy  tn 
change  a  oarticular  HP0M  by  creatine  a  new  tap^  for  t-  n  e 
desired  column  or  row. 

The  advantaces  of  a  m»»t  a-asse^o  1  e  r  apcroacn*  such 
as  AMQASNV^O*  are  flexibility  and  ease  o  *  use.  The  user  may 
define  multiple  for^a^s  with  overlapping  fields  and  link 
meaningful  mneu monies  with  various  bit  patterns.  Thus*  tne 
assembler  creates  the  bit  strinas  for  microinstructions.  Tne 
user  may  also  writp  programs  using  strinns  of  1  *  S  and  O's  * 
with  a  short  Definition  phase. 
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D.   TIMING  ANALYSIS 

/  Practicality  of  the  Cobol  calculator  ciecenas  par- 
tially upon  the  time  which  is  required  to  execute  a  proaram. 
Ihe  actual  timing  of  the  machine  oerformance  will  occur  when 
it  is  run  in  microcode  on  the  InteMec  MDS-D0S  system.  How- 
ever, several  important  factors  can  be  assessed  by  usina 
manual  methods  and  estimating  the  required  cycles  ana  number 
of  references  to  D  a  n  a  c  m  Access  vemory  (RAM). 

Table  d  contains  a  list  o*  the  seauential  process- 
ing steps  of  the  *0F  vero.  The  si?e  of  tne  da^a  and  pro- 
cedure divisions  are  assumed  t-o  De  ?  0  0  0  bytes  each,  which 
allows  storage  of  a  reasonably  co^o'e*  d  r  o  g  r  a  m  .  A  K  A  ^  access 
time  of  300  nanoseconcs  was  assumed  for  these  calculations, 
and  any  processino  whicK  could  be  done  simultaneously  with 
the  WAM  access  was  not  included.  The  time  of  1.35r  mil- 
liseconds for  the  fetch,  aod,  ana  s^ce  is  ouite  long.  T^is 
value  includes  40^0  access  to  memory,  most  of  which  were 
used  in  movina  data  division  bytes  through  the  w  c  r  k  i  n  a  area. 
The  time  used  in  moving  these  ovtes  recresents  1  .  ? 1 5  mil- 
liseconds or  abou1"  ql  percent  of  the  total  execution  Mme. 

Another  example  o*  a  large  amount  of  ti^e  spent 
manipu latino  data  is  the  initialization  of  the  proaram  in 
memory.  T  h  p  interDreter,  COIN,  must  find  *"  h  e  top  of  tne 
procedure  division  anc  fhen  locate  the  too  of  the  data  divi- 
sion. For  the  simple  example  proaram  in  iooenoix  A,  the  in- 
itialization requires  R00  "AM  accesses  ana  1000  machine  cy- 
cles, txecution  of  ♦■his   orogram   will   require   about   d^00 
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accesses  to  memorv  snc  5500  machine  cycles.  Thus*  execution 
time  is  about  1.05  milliseconds*  of  which  71  percent  is  ab- 
sorbed in  memory  access.  Anain  this  is  quite  lona  for  a  s  i  m  - 
d 1 e  proa  ram . 

It  must  be  remembered  that  these  estimates  are 
very  rouan.  Estimation  errors  will  be  found  in  count ina  the 
number  of  machine  cvcles  which  corresoono  to  a  civen  line  of 
assemb 1 y  code . 

using  these  estimates  as  a  rough  ouide*  it  is  evi- 
dent that  the  reference  ti^e  to  Random  Access  Memory  is  a 
major  facte  in  the  sceeo  of  nroqram  execution.  Due  to  this 
problem*  two  oossiole  changes  to  anv  future  design  snould  be 
considered.  First*  P  a  r  d  o  m  Access  Memory  *  i  t  h  an  access  time 
of  under  200  nanosecoras  should  o*»  used.  Memory  with  this 
access  speed  is  a  v  a  i  1  a  0  1  e  »  althouoh  it  is  mce  expensive 
than  the  slower  pA^ .  This  change  could  imorove  execution 
time  by  one-fourth.  The  second  suqaest  ion  is  to  aev^lop  a 
pipeline  f echnicup  for  bytes  access*  much  1  i  <  e  the  teennjaue 
used  in  the  sequencer.  This  could  he  done  in  microcode?  it 
would  consist  of  loaaina  the  next  sequential  byte  durina  tne 
processina  of  a  giv*»n  byte.  Since  a  majority  of  R  A  M 
accesses  occur  during  a  linear  search  of  the  user's  prooram* 
this  simple  technique  could  cut  the  execution  time  oy  25 
percent  . 
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TABLE  2.    SAMPLE  TIMING  FOR  AN  AuD  STATEMENT 


TIME 


ACTION 


410ns     n«an  token  nuiroer  to  symool  table  entry 

bnOus     search  data  civision  for  a  variable  nrintname 

(assuminq  1000  character  compares) 
555ns     fetch  next  tcxen  numbe r--does  it  eoual  'TO'? 
300ns     fetch  next  token  number 
660us     search  data  civision  for  second  variable  prmtna^e 

(assuming  1000  character  compares) 
1  .  2  u  s     align  decimal  ooints--assu^e  two  zeros 
y.5us     access  aritnrretic  tables--assurr>e  loncest  ooerana 

nas  10  ciaits   *  .4^  us/oigit 
3  u  s     transfer  data  from  buffer  »■  o  memory  a  cpl 


1  .  53o    ms/add 
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I.   HFCOMMfcNDftTIONS 


This  thesis  represents  only  the  first  half  of  the 
implementation  of  a  COBOL  calculator.  The  next  Dhase  in- 
cludes the  final  machine  desion  and  conversion  of  the  '  C  ' 
1  a  n  a  u  a  g  e  d  r  o  g  r  a  m  modules  to  microcode.  AMDASI^/SO  would  be  an 
aoprooriate  lanauage. 

The  following  are  items  which  can  be  considered  if 
an  expansion  of  the  COBOL  calculator  is  desired.  Each  of 
these  items  was  considered  durinq  the  initial  design  of  the 
algorithms;  all  snould  be  relatively  straightforward  to  i  m  - 
p 1 emen t . 

First*  the  arithmetic  packaae  could  oe  exoandec  to 
handle  exponentials.  As  presently  written,  the  routines  ^re 
independent  of  decimal  ooint  oosition  once  the  location  is 
known.  A  routine  to  cetect  and  manipulate  the  exponents  can 
be  added  to  ooth  the  multiply  and  divide  routines.  For  the 
add/suotract  routine,  the  section  which  alinns  the  decimal 
points  must  oe  expanded  to  adiust  the  exponential  values. 

Second,  expansion  to  al low  for  both  uooer  ^nd 
lower  case  ASC1T  characters  has  some  value  since  it  would 
improve  readibility.  The  editor,  CuFD,  will  presently  a  P  o  w 
uoper  case  characters  anywhere  in  the  Identification  and  En- 
vironment divisions.  If  the  totc^n  routine  is  modified  to 
detect  uoper  case  letters  when  looking  for  a  symbol  name  in 
the  l)  a  t  a  division,  all  user  defined  svmhols  c^n  contain   e  i  - 
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t  h  e  r  upoer  or  lower  case  characters..  Tn  the  Procedure  divi- 
sion, however,  all  reserved  words  must  contain  onlv  lower 
case  characters  because  t^ev  srfi  entered  in  the  svmbol  table 
in  lower  case.  This  can  be  easily  chanaed  to  uDper  case/  or 
a  mixture  of  the  two*  bv  chanaing  the  svmbol  table  entries. 
However,  it  may  not  be  not"  oractical  to  allow  the  user  any 
mixture  of  upcer  and  lower  case  characters  for  the  reserved 
words,  due  to  the  limited  size  of  the  symbol  ♦"able. 

A  thira  ite"-  of  exoansion  could  be  a  cnaracter 
editing  ability.  This  cou'a  be  accomplished  relatively  easi- 
ly since  the  line  to  he  modified  is  in  the  line  buffer.  A 
significant  n  u  m  p  °  r  cf  revisions  to  the  moaify  and  inout 
routines  would  be  required,  however,  and  it  was  not  imple- 
mented at  this  time. 

The  fourth  area  of  imornvemenf  is  the  inclusion  of 
a  debua  facility-  Ihis  is  probably  the  most  important  area 
of  imorovement.  [he  o  °  d  u  g  routine  would  have  the  va'up  of 
all  declared  variables  available  since  they  remain  with  the 
proqram  until  r e i n i t i a  1  i zed .  Thus  if  a  fatal  error  occurs 
durina  the  interpretation  ohase,  the  error  routine  needs  to 
insure  that  the  subroutine  s  t  a  c  ^  and  fhe  orogram  counter  are 
saved.  The  debuoqer  would  use  the  various  search,  match,  and 
find  routines  which  have  already  been  implemented  to  deter- 
mine the  valu*»  of  any  desired  variable.  A  restart  could  be 
easily  accomplished  ov  nassino  th»  interpreter's  initialisa- 
tion routine. 

in  conclusion,  the  firs'-  nhas»  is  complete.  In 
the   course   of  this  thesis,  several  imoortant  concepts  were 
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implemented.  If  was  shown  that  a  COBOL  Calculator  usino 
si  mole  algorithms  tc  interpret1  a  basic  version  of  CObOL  is 
technically  feasible.  It  was  also  shown  that  there  are  some 
unresolved  questions  as  to  the  ooeraf ional  feasibility  of 
this  flesian. 
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APPENDIX  A.   SAMPLE  TERMINAL  SESSION 


COEO:Cohol 
*Au0O0  Ide 
*A0n  1  0  Pr 
*Aon<?0   Au 

*RO000  Fnv 
*R0010   Cc 


*B0015 
*PU0  IS 

*coooo 

*CoO  1  0 

*coo<eo 

*  C  0  0  3  0 

*  C  u  o  a  o 
*C0050 

*C0O70 


*coo 
*coo 

*C  0  t 

*C01 
*C01 

*coi 

*C01 

*r  o  i 

*ooo 
*ooo 

*DuO 
*00n 

*ouo 
*noo 

*D00 
*D00 

*ouo 
*non 
*noo 
*ooo 
*DoO 
*DU0 
*  AljO 
*R00 
*C01 

*  a  on 


80 
90 
0  0 
10 
10 
10 
20 
30 
on 
10 
20 
30 
35 
40 
45 

50 
55 
60 
6S 
70 

en 

9n 
30 
20 
40 
25 


Th 

<i 

Oat 
F  i 
fc 

01 


fc 


Ot 


Editor.   Version  1.1 

nM  f  icat  ion  Division, 
oaram  name.   test. 
t^or. 

Con  1 ev . 
ironment  Hi  vision, 
n^iqurat  ion  Section. 

Source  computer. 
POP-1  1/50. 
is  line  will  be  deleted  later. 

a  Division. 
1  e  Section. 

f  i  1  e- i  n 

aata  record  is  e  m  o  -  i  n  . 

e^p* i  n  . 

03   name-in       pic   x  (  1  0)  . 

03    hrs-in         pic    Q9  . 

03   rate-in      pic   °  9  Q  .  Q  9  . 

f  i  I e-ou  t 

data  f-ecora 

e^o-ou t . 

0  3   namp-ou  t      pic 

0 3    filler        pic 

03   pay  pic 


is  e mo-cut. 


Pre 
01 

r 
i 

c 
0 

s 
03 

rr 


a 

V* 

03 


03 
03 
03 
cedu 
0-ma 
ead 
f  na 
erf  o 
20-e 
t  op  . 
0-p  r 
ove 
u  1  t  i 
ove 
dd  v 
rite 
0-e* 


pay  pic 

filler       pic 

total         pic 
re  division. 
i  n  . 

emp-  1  n  . 

me- in  numeric   ao 
tt>  0  3n-r  rocess  . 
ndt  es*-  . 


ocess  . 

name-in  to  name-out. 

oly  nrs-in  hy  rate-in. 

ratp-in  to  D3v. 

av  to  total. 

emp-out  . 
i t .    exit. 


x  (  1  0)  . 
x(10)  . 
Q.Q9. 

09°. Q9. 
x ( I  0)  . 
*9,9<59.9P 


value  0 


020-enat  est  . 


remarks  . 


Tn  i  s  is 


test  p  roo  ram  to 


3b 


calculate  the  pay  of  an  employee 

based  on  his  pay  rate  ana  the 

hours  worked. 
*D0005  *  this  is  an  example  comment* 

which  can  be  inserted  anywhere. 
*A0000,F 

A0000  Identification  Division. 
A0010    Proararr,  name.   test. 
A0020    Author. 

Con  1 ev  . 
A00P5  remarks.   THis  is  a  test  crogram  to 

calculate  the  pay  of  an  employee 

based  on  his  nav  rate    ana  the 

hours  work  ed . 


A0Q30 
dOuOO 
80010 


B0020 
CO0O0 
C  0  0  1  0 
C0U?0 

C0030 

coo^u 

C0050 
C0060 
C0070 

cou^o 
cno^o 
C0100 
CO  1  10 
C01P0 

coi3o 

COiao 
DOOOu 
00005 

D001  0 
D  0  0  ?  0 
00030 
00035 
U0040 
D00U5 
DOOSu 
00055 
0  0  0  6  0 
00065 
0007u 

ooo^o 

uOO^O 
EOF 
*au  i  t 


Environment  Oi  vi  si  on. 
Con f i au r a t i on  Section. 
Source  computer. 
PDP-i 1/50. 


Oata  Division. 
Filp  Section, 
to   file-in 

oata  record 
emo- 1 n . 
03   n  erne  -  i  n 
0  3   h  r s- l n 
u  3   rate-in 
f  i  I  e-out 
data  reco  ra 
e^o-out  • 


01 

fc 

01 


is*  emc-  i  n 

p  i  C 
pi  c 
pi  c 


x(lU). 
Q9. 


i  s  emo-ou  t-  . 


03 
03 
u3 
03 
03 


name-ouf 

filler 

Day 

filler 

total 


p  i  c 
d  i  c 
p  i  C 
pi  c 
p  i  C 


x(10). 
xCIO)  . 

099  .99. 
x(10)  . 

$9, 909.99 


value  0 


Procedure  Division. 

*  this  is  an  examole  comment, 

v*  h  i  c  h  can  be  inserted  anywhere. 
0  1  0-mai  n. 

reaa  e^o- i  n  . 

ifs     na^e-in     numeric        go     0£0-endtesf 
rerfor^    030-nrocess. 
020-endfest . 
stop. 
0  30-o  mcess  . 

"■ove  namp-in  to  name-out. 
multiply  nrs-in  by  rate-in. 
move  rate-in  to  pay. 
add  ca^    to  total. 
write  emo-ou  t . 
0  3  0 - e  x  i  t .    exit. 
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APPENDIX  b.   GRAMMAR  RI!|_FS  IN  Ri\lF  FOP  wiCRn-fUPOL 


1   <program>  ::=  <ia-di v>  <e-ai  v>  <d-aiv>  <p-aiv> 


2       <id-aiv>  ::=  IDENTIFICATION  DIVISION.  PPOGRAM-IO. 


<cornrrent">     .     <aut^>    <dafe>    <sec> 


3   <auth>  ::=  AUTHOR  .  <coTment>  . 


!   <empf y > 


5   <  d  a  t  e  >  ::=  D  A  T  E  -  t'i  P  I  T  T  E  N  .  <co"ment> 


!  <empf y > 


<sec>  ::=  SECURITY  .  <comment> 


!  <emo t  v> 


9      <comment->  ::=  <inout> 


10 


!  <c o^men  t- >  <inout-> 


11   <e-div>  ::=  ENVIRONMENT  DIVISION  .  CUMF  I GUR A I  I  UN  SECTION 


<scr-coj>  <i-o> 


12   <src-ooi>  ::=  snuPCF-OOMP  U TFR  .  <commenr>  <  d  e  b  u  a  > 


0RJFCT-CUMPUTFR  .  <cor"rr,pnt> 


13   <debua>  ::  =  DFBi'GGINb  NiODF 
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14 


!     <emot v> 


IS       <i-o>     ::=    INPUT-OUTPUT    SECTION     .     FHE-CONTWOL     . 


< f i 1 e-ccn t ro 1  - 1i st >    <ic> 


'16 


I     <pmot v> 


17   <file-control-list>  ::=  <f  i  le-cont  rol-entry> 


1« 


!  < f i  1 e-con t ro 1  -  1  i s t >  < f i  1 e-con t ro 1 -en t ry > 


19   <f i  1  e-cont ro 1 -ent ry>  ::=  SELECT  <ia>  <a t 1 r i but e- 1  i s t > 


20   <at  t  r  i  bute-1  i  st  >  ::=  <one  a^t^b> 


21 


!  <a t t r i hut e- H st >  <one  attrib> 


22   <one-attrib>  ::=  r  r  0  a  N  I  7  A  T  I  n  N  <oro-tyoe> 


23 


!  ACCESS  <acc-i-yoe>  <rplative> 


24 


!  ASSIGN  <  i  n  o  u  r  > 


25   <org-tyoe>  ::=  SECuFNTIflL 


26 


!  P  E  L  A  T  I  V  E 


(he  relative  attribute  is  saved  for  production  19 


27   <acc-tyre>  ::=  SEGUFNTIAl 


This  is  the  default. 


2« 


!  p  a  r  d  n  m 


The  random  access  mode  needs  to  b<°  saved   for   oroouc- 


39 


t  ion  19 


2Q       <relative>  ::=  RELATIVE  <ia> 


30 


}  <errpt  y  > 


31   <ic>  ::=  I-O-CONTRQL  .  <same-list> 


33 


!  <e^ot y > 


33   <same- H  s  t- >  ::=  <san"e-e  1  ement  > 


3^ 


J     <sa^e-list->    <same*el  e^ent> 


35       <same-e 1 e^en t >     ::=    SA^t    <ic-sfri  na>     . 


36       <id-strinc>    ::=    <ia> 


37 


<  i  d-s  t  r  i  na>     <  i  d> 


3°   <  d  -  d  i  v  >  ::=  DATA  DIVISION  .  <f  i  le-sec»'ion>  <work>  <  1  i  n  *  > 


3°   <file-sfction>  ::=  FILE  S  f  C  T I n  n  .  <  f  i  l  e  -  H  s  t  > 


ao 


!  <ernP  <■  y  > 


41       <file-Hst>    ::=    <  *  i  1  e-el  e^en  t  > 


a? 


1  <file-lisf>  < * i ' e-e 1 e^en t > 


43   <files>  ::=  Fn  <ic>  < f i  1 e-conf ro 1 >  .  < reco rd-desc r  i  o t i on> 


44   <f i 1 e-cont ro 1 >  ::  =  <file-list> 


45  !  <empty> 

46  <  f i 1 e -  1 i  s  t  >  ::=  < f i 1 e-e 1 e^en t > 


4u 


47 


!     <file-Hst>    <f  i  1  e-el  ement  > 


48   <f i 1 e-el ement>  ::=  BLOC*  <integer>  PECOPuS 


49 


!  PECOPD  <rec-count> 


[he  record  length  can  be  saved  for  comparison  with  the 


calculated  length  from  the  oicture  clauses 


50 


!     LABEL    PECOPDS    SrAfSiPAPU 


51 


!  LAPEL  PECOPDS  0MITTE0 


52 


!  VALUE  OF  <ia-strina> 


53   <rec-count>  '.  '  -    <inteoer> 


5  4 


J  <inteoer>  TO  <integer> 


55   <wor<>  ::=  WORK T NG-S TOK AGE  SECTION  .  < record-desc r i o t i on> 


56 


;  <emo  t  y > 


57       <Hnk>     ::=    LINKAGE    SECTION     .     <record-descrintion> 


5B 


!     <eTip  t  y  > 


5q       <  rer.  o  ra-desc  r  i  p  t  i  c  n  >     '.:-    <  1  e  ve  1  -en  t  ry  > 


b0 


!     < rec n rd-desc r i p t i on>     < 1 e ve 1 -en t r v> 


bl        < 1 e ve 1 -en t ry >     ::=    <intener>    <ria*a-iri>    <redefines> 


<da t  a- 1 vpe> 


b?       <data-id>  ::=  <ia> 


41 


b3 


!  FTLLfcP 


t,n       <redefines>  ::=  REDEFINES  <ia> 


The  reaefines  oDt ion  oives  new  attributes  to  a   previ- 


ously  defined   record  area 


65 


J  <errot  v> 


66   <data-type>  ::=  <oroD-list> 


!  <emo t v> 


of   <orop-list>  ::=  <oat a-e 1 e^ent > 


!  <croo-Hst>  <da  t  a-e  1  e^en  t  > 


/0   <dat a-el e^en t >  ::=  PIC  <irput> 


The  <inout>  at  tnis  point  is  the  character  string  that 


aefines   the  record  field. 


71 


!  USAGE  C0MP 


The  field  is  defined  to  b*3  a  oacfceo  numeric  field 


12 


!  USAGF  DISPLAY 


The  DT3PLAY  format  is  t^e  default*  and  thus  no  special 


action  occurs. 


73 


!  SIGN  LEADING  <serarate> 


This  oroaucMon  indicates  the  presence  of  a  sign  in   a 
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numeric   field.    The   sian  will  he  in  a  leadina  posi- 


tion.  If  the  <senarate>  indicator  is  true/   then   the 


length  will  be  cne  longer  than  the  picture  clause/  and 


the  tvoe  will  be  chanaeH. 


7a 


!  SIGN  TRAILING  <separate> 


The  same  information  renui  r«>d  dv  production  73  must  De 


recorded/  but  in  tnis  case  the  sian  is  trailing  rather 


than  leadina. 


75 


!  OCCURS  <inteaer> 


The  tvpe  must  oe  set"  to  indicate  multiple  occurrences 


lb 


!  SYNC  <direction> 


77 


!  VALUE  < 1  i  teral > 


The  field  being  defined  will  he   assianea   an   initial 


value   determinpa   by  the  value  of  tne  liberal. 


78   <direction>  ::=  LFFT 


7^ 


i  KIGHT 


60 


!  <emp  t  v> 


81   <senarate>  ::=  SEPARATE 


43 


!     <etrpt  y  > 


63    <  I  i  t  e  r  a  1  >    ::=    <input> 


84 


!     <lit> 


This  literal  is  a  quoted  string 


8S 


!  ?£P0 


86 


SPACF 


87 


!  ouorF 


8  p   <inteoer>  :  :  =  <inout> 


89   <  i  d>  : : =  <  i nput  > 


90   <o-div>  ::=  PPUC£CUP£  OIVTSTON  <usinq> 


<nroc-Doav>  t  M)  . 


91   <usina>  ::=  uSI^'G  <ia-strina> 


92 


!  <^mot  v> 


9"*   < i a-s t r i na>  ::=  <ia> 


94 


i  <ia-strino>  <  i  d  > 


9S   <proc-ooav>  ::=  <caranr^ph> 


9n 


i     <cmc"Doav>    <rar  aor  apb> 


97       <naraaraoh>     ::=    <ia>     .     <sent ence-1 i s t > 


9* 


!  <ia>  SECTION  . 


44 


99       <sentence-Hst>  ::=  <sentence> 


100 


!  <sen t ence- 1 i s t >  <sentence>  . 


101   <sentence>  '. '.  -    <  i  moe»~at  i  ve> 


ioa 


!     <ccmij  t  ional  > 


105 


!  ENTER  <id>  <opt-ia> 


This  construct"  is  not  imple^entea.    ^ n   FMtf   allows 


statements  from  another  I snnuaqe  to   insertea   in   the 


source  code  . 


104   <imper^tive>  :  :  =  A  C  L  F  P  T  <  s  u  D  i  d  > 


105 


!  <an  thmeMc> 


106 


!  CALL  < 1  i  t >  <us  i  no> 


This  is  not  implemented. 


107 


108 


109 


1  1U 


1  1  1 


1  12 


1  13 


CLOSF  <id> 


<  f  i  I  e-ac t> 


HISPLAY  <|it/id>  <opt-lit/ia> 


EXIT  <oroqram-ia> 


GO  <id> 


GO  <  i  d - s  t  r  i  n a >  D  F  P  F  i\i  0  I  N  G  <  i  d > 


vOVt  <lif-ia>  Tu  <subid> 


nb 


114 


!  OPEN  <i-yoe-action>  <  i  a  > 


1  15 


!     PERFORM     <ir<>     <thru>     < f i ni s h > 


1  16 


!  <  reart-i  d> 


117 


!  S  TOP  <t ermi  nat e> 


lid   <conditional>  ::=  <arithrpeMc>  <size-error>  <imperative> 


1  19 


!  <file-act>  <invalid>  <mppr3t  i  ve> 


A  6ST  operator     is  outou*-  t  o  comolete  the   branch   from 


produc  t  i on  64  . 


12U 


!  IP  <condi  t  ion>  <action>  tLSF  <  i  rnp<?  ra  t  i  ve> 


121 


!  <read-id>  <spec  i  al  >  <  i  mce  rat  i  ve> 


122   <ArithmeMc>  ::=  AOQ  <  1  /  ■?  a  >  <oot-l/H>  TO  <suoia>  <rouna> 


123 


J  niVIDE  <l/id>  INTO  <subid>  <round> 


124 


!  MULTIPLY  <l/ia>  Ry  <subid>  <round> 


12b 


!  SUBTRACT  <l/ia>  <oot-l/id>  FRQ^ 


<suoid>  <rouna> 


12o   <file-acf>  ::=  uFLFTF  <id> 


127 


!  Rf_l*KT  TF  <  i  d> 


12d 


!  ^'  K  I  T  F"  <iH>  <sp*?cial-act> 


129   <condiMon>  ::=  <|  it/id>  <not>  <cona-tvpe> 


u  6 


130   <cond-tyre>  ::=  NUMERIC 


131 


ALPHABETIC 


132 


J  <cowpare>  <  1  i  ♦■  /  i  a  > 


1  33      <not >    : : =    NOT 


NEG 


13a 


I     <<?mo  t  v> 


135   <comoare>  ::=  n^FATEP 


13o 


1  LCSS 


137 


i  EQUAL 


1  38   <ROUND>  :  :=  PUUNOEH 


139 


J  <»mD  t  v> 


lao       <ten<inare>    ::=    <litera1> 


1  a  i 


;    ktjN 


1 0,2       <soecial>  ::=  <invalid> 


143 


J  END 


laa   <ont-i'i>  ::=  <subiH> 


las 


!  <  e '"D  f  y  > 


1^6   <action>  ::=  < i mre ra t i ve> 


1  'J  7 


!  NEXT  SENTENCE 


'4  7 


148   <tHru>  ::=  fHRU  <id> 


149 


J  <efpty> 


150   <finish>  ::  =  <  1  /  -i  d  >  TIMES 


151 


!  UNTIL  <condition> 


152 


!  <e^pt /> 


153   <i  nval  i  a>  :  :=  INVALID 


154   <size-error>  ::=  STZF  FW.RQR 


155       <soecnl-act>     ::=    <when>    ADVANCING    <how-fany> 


15b 


i  <emo t  v> 


157   <when>  ::=  B  E  F  C  K  E 


158 


j.  AFTER 


159   <now-man v> : : =  <integer> 


160 


!     PAGF 


161       <  t  y  p<?  -  ac  t  i  o  n  >    ::=    T  <\i  P  u  T 


162 


;    output 


163 


1-0 


164   <suoid>  ::=  <subscriot> 


165 


1  <  i  a  > 


16b       <mt?g»r>     ::  =    <input> 


48 


167   <i  d>  : :=  <i nout> 


166   <1 / i  d>  : : =  <i nout> 


169 


!  <subsc  r i ot  > 


170 


!  ZtRO 


171   <suDscriot>  ::=  <id>  C  <inout>  ) 


1  7  <2 .  <opt-l/id>.::=  <  l  /  i  d  > 


173 


!   <eTDt"  y  > 


174   <nn-l  i  f  >  : : =  <  1  j  ►> 


17b 


!  SPSCF 


176 


!  QUHiE 


177   <  1  i  tera 1 >  ::=  <nn-l ^ t > 


176 


!  <inout> 


179 


!  ZFkT 


180   < 1 i  t /i  d>  : : =  <  1  / i  a> 


181 


!  <nn- ljr> 


lfl2   <oot-Ht/H>  ::=  <lit/id> 


1*3 


!  <emp t y> 


i8a   <proaram-id>  ::  =  <id> 


1«5 


!   <emDf  y> 


i\9 


18b   <reart-ia>  ':-    SE^D  <ia> 
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APPENDIX  C.   COFD  USER'S  MANUAL 


This  manual  describes  the  facilities  of  the  CUPOL 
editor^  COED/  which  is  desianed  to  run  on  the  UNIX  operatina 
system  at  NPS.  This  eaitor  is  the  first/  and  mandatory, 
steo  for  writinc  a  C  0  P  U  L  o  r  o  g  r  a  m  to  De  executed  ov  CUTK/  the 
C  0  d  0  L  interpreter  which  also  run  on  UNIX  at  w  P  S  . 

The  following  items  aDply  to  orngrams  written  us- 
ing COED: 

1)  Lower  case  ASCII  cnaracters  are  usea  excect  for  line 
numbers/  as  n^teJ  below. 

d)  Each  COBOL  sentence  must  r\ av e  a  unique  line  nu^oer, 
which  is  entered  by  t^e  user  usino  t  ri  *»  formats  n  o  ♦"  e  d  below. 

3)  Periods/  blanks/  tabs/  and  n  e  w 1  i  n  e  cnaracters  "av  o  <= 
f reel v  inserted  in  a  line  to  improve  readihility.  A  period 
followed  by  a  newline  character/  however/  is  treated  as  an 
end  of  line  indicator. 

4 )  The  COriOL  sentence  must  be  less  than  ?bb  characters. 

5)  Each  CUPOL  sentence  must  end  witn  a  period  ana  newline 
character  '  .  C C  ° )  '  .  rJ  o  blanks  are  allowed  between  these 
charac  frs. 

o)  Lines  m^y  be  entered  in  any  o  r  a  «=»  r  ?  the  editor  places 
them  in  ascending  numeric  order. 

7)  Four  line  numbers  must  be  nresent  with  the  followinq 
format  : 

AO000  identification  division. 
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bOQOO  environment  division. 

CO00O  data  civision. 

D0000  procedure  a  i  vision. 
The  following  items  acpl y  to  line  numbers: 

1)  A  line  number  consists  of  one  of  fhe  uoper  case  ASCII 
characters  followed  ov  four  digits. 

£1  The  ASCII  alphabetic  characters  have  special  meanings 
within  the  prooram.  Tne  cnaracter  indicates  the  COBOL  divi- 
sion into  which  t^e  line  will  be  inserted. 

AVXXX  represents  t h p  IDFNTIFIC AT  I  ON  DIVISION 

BXXXX  represents  the  ENVIRONMENT  DIVISION 

CXXXX  rppresents  the  DATA  DTVISTON 

DXXXX  represents  the  PROCEDURE  DIVISION 
3)   The  four  diaits  indicate  the  oosition  o  *  the  line  within 
the  division. 

k'.hen  the  editor  is  called  it  will  respond  with  an 
asterisk/  '*';  it  is  then  readv  *■  o  accept1  a  new  line.  This 
asterisk  must  always  be  followed  by  a  line  numper. 
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ELEMENT: 


ADD  A  NEW  LTfvF  TO  THE  PROGRAM 


FORMAT: 


<1  ine  numher>  <TOPOL  se^tence>  .(CR) 


DESCRIPTION 


The  pai  tor  will  •find  the  crooer  location 
corresponding  to  the  lino  number.  The  line 
number  and  the  CQPOL  sentence  u  o  to  t^e  EOL  in- 
dicator ar<=  entered  into  the  memory  area.  If 
t^e  sentence  is  in  the  Procedure  division  it  is 
converted  to  token  numbers  before  being  entered. 
Otherwise/  the  ASCTI  characters  are  inserted 
d  i  rect 1 v . 


EXAMPLES: 


A0010   o rog r am- i d . ( TR  )  example. 
COOao   01   data-m    nic  xCOI.fCR) 
D1900   add  x  f  o  y.(CR) 
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ELEMENT: 


ADD  A  BLANK  LINE 


FORMAT: 


<1ine  numhep>fC) 
<1  me  numher>  .  (iP) 


DFSCRTPTION: 


A  clank  1  i  ne  is  inserted  in  the  prooram.  This  is 

useful   to   i^crove   r  e  a  d  i  d  i  1  i  t  v  and  ^av  he  used 

freely.   N'ofe  that  t  h  e  first-  option  will  resul  f 
in  a  cleaner  orinting. 


EXAMPLES: 


A0100. (CR) 

cooao(CR) 


sa 


ELEMENT: 

COMMENT 
FORMAT: 


<line  numbep>  *  <ASCII  strinq>  .(CR) 


UESCRTPTION 


If  the  Hne  number  is  followed  by  a  sinale  blank 
and  then  an  '  * '  /  trip  interpreter  will  lanore  the 
rest  of  the  lino  Up  to  the  oerioa-newline.  Com- 
ments may  oe  freely  inserted  in  any  division  and 
are  always  stored  as  an  A  S  C  T  I  strina. 


EXAMRLhS: 


OOlOu  *  This  is  a  samnle  comment.   It  may   be   a 
maximum  of  ?  5  6  characters. 
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ELEMENT: 


DELETE  A  LIME 


FOKMAT  : 


<1  ine  numher>  afCP) 


DESCRIPTION: 


The  line  is  fnuna  in  the  orcqra^   area   and   all 
characters   or   tok»n  numbers  are    deleted.   Note 
that  no  bl an<s  are  allowed  between  the 
•a'  and  the  '  (CR)  '  . 


EXAMPLES: 


dO^OO  d(CP) 


^b 


ELEMENT: 


MODIFY  AN  OLD  LINE 


FORMAT: 


<line  numher>  m  (  C  R  ) 


DESCRIPTION: 


The  editor  will  print  the  line  as  writ-ten?  then 
print  the  line  number  and  wait  for  instructions. 
The  'user  has  tnree  options: 

1)  tvpe  <C0b0L  sentenc.p>  to  renlace  thp  rrpsent 
sentence  ending  with  a  '  .  (  C  P  )  '  / 

2)  tyD"  dCCRl  to  a<»lete  the  l  ine< 

5)   tvp*3  CCP)  tc  leave  ftip  H  ^e  as  written. 

Note  that  no   character   eaitino   cacabilitv   is 

ava  i  1 ao 1 e  . 


EXAMPLES: 


*D00an  m(CR5 
D0Q40  ada  x  to  v. 
*DU0aO  acd  2  to  y.(CR) 
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ELEMENT 


PRINT 


FORMAT: 


<)  i  ne  numhe r> / < 1  i ne  numher>  (CR) 
<1 ine  numher>ft  (CR) 
<line  number>,  (CR) 


DESCRIPTION: 


The  first  format"  causes  all  lines  to  he  nrinted 
start  ina  at  the  first  line  number  ana  continuina 
until  tKe  s^cono  line  number  has  been  printed. 
The  second  *  o  rm  a  t  causes  all  lines  *■  o  be  nrinted 
start  i  nn  st  t  n  e  ^  i  rst  line  ana  continuina  until 
the  ena  o'  file  indicatior. 

The  thira  forma*"  causes  that  line  number  only  to 
be  printed. 


EXAMPltS 


A001  0,  bOuOO  (CR) 
AO0OO,E  (CR) 
A000O,  (CR) 
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ELEMENT 


QUIT  FDITOR 

FORMAT: 

q(CR) 
qui  t (CR) 

OFSCRIPTiON: 


Edit  is  termindtci.  The  program  is  written  into 
low  memory,  closing  uo  the  work  SDace.  The  sym- 
bol tad  e  is  written  directly  following  the 
program's  FOF,  ^nd  ^nv  deleted  entries  ar^  set 
to  'NHL'. 
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APPFND1*  0.   COTN  USER'S  MANUAL 


This  manual  describes  the  subset  of  VICNP-CGPGL 
currently  accepted  by  the  COBOL  interpreter*  C  0  T  f\i .  The  f  o I  - 
lowina  conventions  are  us»d  in  explaining  the  formats: 
1  )  Elements  enclosed  in  broken  oraces  <  >  ar«>  complete  en- 
tities and  are  described  elsewhere  in  the  manual. 
d)  Elements  enclos^a  in  stacks  o  *  bracks  {  }  are  choices* 
one  of  which  must  dp  chosen. 

3)  Elements  enclospo  in  brackets  t  )  are  ontional. 
<4)  All  elements  in  capital  letters  are  reserved  words  and 
must  oe  spelled  e  x  a  c  t  1  v  so  t  h  a  ^  they  can  De  m  a  c  p  e  a  into  thp 
correct  to<en  numbers.  /*  h  e  n  usina  C  u  F  U  and  COIN  however, 
the  entire  C  U  P  G  L  prooram  is  entered  in  lo^er  case  charac- 
ters. 

User  defined  va^nb1  es  and  naraaraph  names  a  r*  in- 
dicated as  lower  case.  These  names  are  restricted  f c  16 
characters  in  length.  Variable  names  must  beoin  witn  an  al- 
phabetic character  =>nd  must  be  aeclared  in  the  Data  divi- 
sion.  ParaGraph  na^es  nust  begin  with  a  numeric  character. 


hu 


ELEMENT: 


IDENTIFICATION  DIVISION  Format 


FORMAT: 


IDENTIFICATION  DIVISION. 
PROGRAM-in.  <comment>. 
[AOTHOR.  <comment>.l 
[DATE-WPITTEN.  <comment>.l 
[SECOPITy  .  <coTmenf>  .] 


DESCRIPTION: 


This  di  vi  ?ion  provi  'ie1?  information   for   n  r  o  g  r  a  m 
l  d  en  t  i  f  i  c  a  t  i  o<">  for    f  hp  reaaer. 


EXAMPLES: 


identification  civisinn. 
0 roa r am- i d .  samo)?. 


nl 


ELEMENI : 


ENVIRONMENT  DIVISION  Format 


FORMAT: 


ENVIRONMENT  DTVISTON. 
CONFIGURATION  SECTION. 
[SOURCE-COMPUTER.  <comment->.i 
[Ob JECT -COMPUTER. <comment>.1 
[INPUT-OUTPUT  SECTION. 
FILE-CONTROL . 
<f  i le-control-e^try>.l 


DFSCRIFTIONt 


A  f  crespntf  tM  s  information  is  ignored.  Once 
the  COBOL  calculator  is  operational,  it  will  De 
needed  'for  specifying  input  ana  outnut  files. 
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ELEMENT: 


D&TA  DIVISION  Fcr^at 


FOK^AT: 


DATA  DIVISION. 
[FILE  SFCTION. 
[FU     f  i  1 ename 

t<record-descrirtion-|°nfrvJ 


..1 


DESCRIPTION 


This  section  describes  ^  o  w  f  h  e   data   is   struc- 


t  u  rea . 
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ELEMENT : 


*<COmmen  t  > 


FORMAT: 


*  <anv  string  o*  ASrIT  characters> 


DESCRIPTION: 


If  a  space  and  an  '  * '  di  reef  I  v  follow  ♦■  h  e  line 
number,  a  1  1  cHaract^rs  until  the  '  •  ( C  R ) '  are  ig- 
nored bv  the  interpreter. 


EXAMPLES: 


D0010  *  t h i s  is  a  samnl°  cOTmen  t  .  (  Cf?  J 
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ELEMENT: 


<dat,a-aescn'pf  vcn-en  t  ry>    co  rma  t 


FORMAT: 


level-number  <data-na^el 

<FTLLEP> 
[plC  character-string 

[VALUE    charac t er-st r i nq] J 


DESCRIPTION: 


This  statement  cescribes  that  soeci  fie  attri- 
butes of  the  data.  The  VALUE  clause  is  usea  to 
initialize  a  variaole  to  a  specific  value  when 
the  proaram  begins  execution. 


EXAMPLES: 


u 1  data-in. 

02    part    ntc  x(^J. 

02  num     oic  Q  9  value  0. 
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ELEMENT 


PROCEDURE  DIVISION  Format 


FORMAT: 


PROCEDURE  DIVISION. 
[oaraoraph -na^e . J  <sentence>  [  < sen t ence> .  .  . 1 


DESCRIPTION: 


This  division  contains  all  the  executable   C  0  R  0  L 


stat  e^en  t  s . 
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ELEMENT: 


<sentpnce> 


FORMAT: 


<imoerat'  i  ve-stateTent> 
<conai t 1 on-statemenf  > 


hi 


ELEMENT: 


<imDerat  i  ve-s^ate^ent* 


FORMAT: 


ACCEPT 

ADD 

CLOSE 

DISPLAY 

DIVIDE 

GO 

MOVE 

MULTIPLY 

OPEN 

PERFORM 

RFAD 

STOP 

WRITE 


DESCRIPTION 


ACCFPT,  DISPLAY,  OPEN,  and  CLOSE  are  currentlv 
icnored  by  the  interpreter  because  they  depend 
on  devices  external  to  ffip  machine. 
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ELEMENT : 


<condi  t  ional -statement) 


FORMAT: 


IF 


hV 


ELEMENT: 


ADD 


FORMAT : 


ADD  {identifier-ll  To  identifier-? 
{ 1 i  teral > 


DESCRIPTION: 


i 


This  instruction  adds  ident  i  t ier-l/1  i  feral  to 
identifier-?  a^a  stores  tHe  result  in  identif- 
ier-?.. 


EXAMPLES: 


add  10  to  total 
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ELEMENT: 


DTVIDF 


FORMAT: 


DIVIDE  fidentifier-1}  INTO  { i den t i f i e r-2 > 
(literal) 


DESCRIPTION: 


This  i^strucMcn  divides  ident  i  f  ic-l  /literal 
into  identifier-?  and  stores  fhp  result  into 
i  den  t  i  f  i  e  r-2  . 


t*AMRLES: 


a  i  v  i  de  5  info  total 
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ELEMENT: 


GO 


FORMAT: 


GO    paraarspH-naire 


DESCRIPTION: 


The   GO   instruction   causes   an    unconditional 
oranc^  to  the  sreciMea  paragraph  n  a  rr  e  . 


EXAMPLES: 


go  1  0-oeg  i  n . 


1Z 


ELEMENT: 


IF 


FORMAT: 


IF   <condition>   (imperative"!}    [FLSE   imrera- 
t  i  ve-?l 

luFXT) 


DFSCKIPTION: 


If  the  condition  evaluates  true  either  imoera- 
tive-1  or  the  next  sentence  in  the  procram  is 
executed.  If  the  condition  is  false/  either  im- 
perative-? is  executed*  or  the  m>xt  sentence  is 
sk  i  pped . 


EXAMPLES: 


if  a  oreater  h  co  10-reain  else  go  3u-end. 
if  x    numeric  ne»t . 
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ELEMENT: 


MOVE 


FORMAT: 


MOVE  { ident i f ier-1  >  TO  ioenti^ipr-^ 

{ 1 1  feral  > 


DESCRIPTION: 


Either*  t-he  value  stored  in  identi^ier-l   cr   f  he 
literal  value  is  stored  into  identifier-^. 


EXAMPLES: 


move  10  to  sun  total, 
move  sub-total  t o  tota 
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ELEMENT: 


MULTIPLY 


FORMAT: 


MULTIPLY  f identi f ier-1)  BY  identifier-^ 
{  1  i  t-eral  > 


DESCKTPTION: 


The  m  u  1 1  i  D 1  y  instruction  causes  ident  i  f ier-1  tn 
be  multiolied  ry  identifier-?.  The  result  must 
be  able  to  be  scored  into  identifier-?. 


EXAMPLES: 


multiolv  3.5  by  3.9Q 


75 


ELEMENT : 


PERFORM 


FORMAT: 


1.  PERFORM   pa r agraoh -name 
name-?] 

2.  PERFORM   pa raqr aoh-name 
name-? J 

{identifier}  T  I  ^  £  s 
{int eoe  r ) 

3.  PERFORM   paragraoh-name 
name-?J 

UN'TTL    <co"aition> 


[THRU    paragraoh- 


ITHPU    paragraoh- 


[THPU    paraaraoh- 


DESCRIPTION: 


This  instruction  causes  an  unconditional  branch 
to  the  specified  oaranrac>h  naTie.  When  the  return 
conditions  ar«=>  ret,  execution  resumes  at  the  in- 
struction follow  inn  the  P  F  k  F  u  P  >v1  statement.  At 
present/  PEPFOR*'  statements  can  De  nestPd  eiaht 
level s  deep . 


EXAMPLES : 


perform  1^-heoir. 

perform  10-reaa  thru  ?0-ena-read. 

perform  10-reao  until  card-in  numeric. 
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ELEMENT: 


HEAD 


FORMAT: 


READ  f i le-name 


DESCRIPTION: 


Data  is  read  from  sere  external  a  e  v  i  c  a  info   the 
Data  division  entries  for  that  file-name. 


EXAMPLES: 


read  data-in 
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ELEMENT  : 


STOP 


FORMAT: 


STOP  [RUN! 


DESCRIPTION: 


This  statement  causes  the   in^eroreter   to   halt 
ana  return  control   to  the  monitor. 


EXAMPLES: 


S  t  0D  . 
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ELEMENT: 


WRITE 


FORMAT: 


wRITE  f i le-na^e 


DESCRIPTION 


This  statement  causes  tKe  va'ues  in  the  Data 
division  associated  *  i  t  h  the  specified  file  name 
to  be  printed  on  the  line  printer. 


EXAMPLES: 


write  tota 
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ELEMENT: 


<COnd  i  t  ion> 


FORMAT: 


RELATIONAL  CONDITION: 

{identi f ier-1)  (NOT!  (GREATER)  (identifier-?} 

{literal-!}  <LFSS>   (HteraW) 

(EQUAL) 
CLASS  CONDITION: 
identifier  INOT1  (ALPHABETIC) 

(NUMERIC) 


DESCRIPTION: 


Identifiers  are  tested  as  specified 


EXAMPLES: 


total  greater  100. 
number  no*"  numeric, 
character  eoual  oeta. 


P0 


SOURCE   LISTING   —    COED 


*6.o  f  ine 

EOL 

0177 

*<ie  f  1  ne 

MEMS  I2E 

*Q96 

*de  f  i  ne 

RVORDS 

53 

*de  f  ine 

SPACE 

0 

*de f  i ne 

TAB 

1 

*de f  i  ne 

PERIOD 

2 

*de f  ine 

F  IJLLER 

52 

*de  f  ine 

ERR 

0 

■*de  f  i  ne 

ADDLINE 

1 

^de  f  ine 

MODIFY 

O 

*de  f  i  ne 

DELETE 

3 

•*de  f  i  ne 

BLANK 

4. 

•*"de  f  i  ne 

PRINT 

5 

■^de  f  ine 

QU I T 

t> 

*de f  i  ne 

LESS 

3 

-de f  i  ne 

EQUAL 

2 

'define 

GREATER 

1 

•"de  f  i  ne 

TRUE 

t 

*de f  ine 

FALSE 

0 

*def  Ine 

CR 

•  #  • 

*  i  nc lude 

"table" 

x*    »nd    of     line    character  */ 

/**    size    <>f    memory   area  -S/ 

/'•*-     iiiimber    of    reserved     vords    %/ 


/* 

/■*■- 
/* 
/* 
/* 
/* 

/■*. 
/* 

/* 
/* 
/* 

/* 


The     following    characters    hn^ 
* A0000' 


B0009 ' 
CO000' 
D00O0 ' 


the     first     line    number 
DIVISION. "     1 Ine    entry, 
mandatory    "  E1TV  I  RONMENT    DIVISION, 
mandatory    "DATA    DIVISION." 
mandatory    "PROCEDURE    DIVISION." 


special    significance     in    COED 
and    mandatory    "  IDENTIF  ICATIOj: 


1  ine    entry 
I  1  ne    entry 
I  1  ne    en  try 


Foi 


the 
and 


following     Items     "CR" 
•XXXXX*      is    a    corr-c- 


".CR" 

•XXXXX  dCR" 

"XXXXX  mCir 

"XXXXX*    < ASCI  I    strinc>.CR 

"q    CR"    or     '  qu  1  t    CR" 


1  s     t  he    ne  w  1  i  ne    c  ho  r  a  c  t  e  r 
y     formed     1 ine     number. 

end    of     1 ine 
de  lete     this     li  ne 
mod  i  f y    this     1  i  ne 
comrae  n  t      line 
qu It     the    editor 


for    U7?IX 


/*  NOTE:     LOWER    CASE    ASCII    characters    will     be    used    by    the    prc.er.iier 
/*  except     for    comments    and     the     1st    char     in     the     line     Eunher, 

/*  This    version    will    ge  nernte    se  quen  t  la  1     1  1  ne    numbers  .        If     t  he 

/*  user    wishes     to    change     the     line     number,      type     the    new    line    nut;  be  r 

/*  immediately    following     the      'st     number.         If     the     user    wishes     to 

/*■  Increment     the    numbers    by    on<*.      instead    of     10,     type    a     line    number 

/*  with    a     least    significant    digit     of     1     tliru    9.      i.e.     not    0. 


char  lb(236]  : 

char  tM256J  ; 

char  s tl 40961 : 

char  c  In!  51  : 

char  temp  s 

char  meinCMEMSIZEl 

Int  Up  t 

Int  tbp 

int  shp 

int  en  I 

int  c  p2 : 

Int  ac f  lot 

Int  eai 

1  ti  t  f>  tn  ; 

int  <J«1; 

Int  etit 


*  Input     line    buffer 

'*  token    buffer 

'*  print     name     table 

"*  current     line    #    buff 

'*  temporary    char    buff 
''#       memo  r  y    si  ze 


*/ 
v./ 
•x/ 
*/ 
•*/ 

*/ 
*/ 

*/-' 
*/ 
*/ 
*/ 

*/ 
.  */ 

*/ 
*/ 
*/ 

*  •' 
*/ 

*/ 
*/ 
*/ 
jr./ 

*/ 


line  buffer  pointer  */ 
tok.cn  buffer  pointer  */ 
1st     char    of     -■  ym     in     I  b  -*'  ' 


'■■■ 

top     of 

area     1 

*• 

•K 

bo  t  torn 

of    or" a    2 

*/ 

■  > 

e (1  i  tor 

action 

*/ 

to  p    of 

s  ymbc  1      t  ;>  !• 

le 

*•/ 

■■* 

top    of 

vyr-  mo  r  y 

*/ 

■> 

de  '  <•  te 

f  lag 

*/ 

•  * 

1  :  >te    * 

incro  i:te  n  t 

•f;  s 

,-u:    E"\30R    */ 
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error ( s) 

char    *s  :        C 

/*    When    an    error     is    detect-  <J.     a     '  *'     is     inserted    at     the    point  */ 

/*     that     the    error    whs    detected    and     the    appropriate    messncrc     is  */ 

/*    pr  inted .  x/ 

int    n: 

ac  t Ion    =    ERR: 

tor     <u=0;     n<  Ibp;     n++)  /-'     Insert     an    A    at     error    *•' 

pu tchar    (  '     '  )  : 
pu  t  c  ha  r    (  '  N  *  )  : 
putchar    (  CR)  ; 

printf    (  ""s    CR",s)  ;  '*    print     the    error    m?=g      */ 

J 

/*    TI7PTTT    */ 
1  npnt     (mod) 

in  t    mod ;        C 

/*    This    routine    accepts    characters     frnn    the    console    and    moves  */ 

/*       them    to     the     input     buffer,     LP.         It     then    will     analyse     the  */ 

s*        Input     to    determine     wha  '     action    the    editor    will     take.  */ 

/*    The    parameter    MOD    indicnt«»s     if     the    action    involves    a    new  'Jr./ 

/*        line    or    a     modification    of     an    old     line.  */ 

Int       next ,  d  lgri  t  ■  number  ,  I: 

putchar    ('*');  /*     input    request    chnr  *•' 

action    -    ADDLINE: 

if     (mod     ■*     0)         C  /*     input     a     new    line  #/ 

lbp    =    0; 

if    (lb[0]     >=     'A*     8S     lb[0]        =     "D*)        (  /*     line    #     in     line    buff       */ 

If     (  IM41      !=     '0'  ) 

/*     if     the     last    die  it    of     the     line    #     is    not     '0'      increment 

the     line     aura))-'  r    by     10    otherwise     by     1.  */" 

digit     =    4 ; 
e  lse 

digit    =    3 ; 
next    =    TRUE; 
whi  le    (next)        ( 

next    =    FALSE: 

number    =     1  b[  d  1  «r  i  t  1  *  1  :  '*     Increment     line    -  */ 

if     (number>,9'     Q8    digit !=0)        (        /*    check    for    overflow         •*/ 
number    =     ' 0 ' ; 
next    =    TRUE: 
) 

lb[ digit]     =     number:  '*    put    number     in    buff  */ 

digit     =     d igl t-1  : 
) 

for    (1bp  =  0j     lbp<r>:     lbp-1-*)  /*    print     the    new   -'  */ 

pu  tchar     ( Ibl 1 bp] > : 
] 

else        t  /*    print    curr     line    *  */ 

for    (  lbp=0:     lbp<5:      lbp++) 

pu  tchar    (  c  1  nl  1  bpl  '  ; 
) 


lMlbpl     =    hti  tcharl  )  ;  /*    read     the     1st    char 


*/ 


If    ( Ibt  lbp]>= ' A'     88     lb[ Ibpi     =  'D')        C  /*    check    If    a     line    -  */ 

lbf.  0]     =     lbt  lbp] ;  /*    wr  i  te    over     Is  t     ~  */ 

for    (      lbp=l;      lbp' 5:      )b;.J-+>        C  /*    read     the     rest    of    '  */ 

1  b r  lbp]     =    ge  tchar (  )  : 
if    ( IbC  lbp) < '0'     II     IM lbp]> '9' ) 

error(    "  IIU'ALIP    LINE    rHTTTBLR  ' ;  ■ 
3 

I S r  lbp]     =     ge tchnr'  )  | 

whi  lo     '   IbC  lbpl     ==     '      '  )  ,'fl    sliip    blanks  */ 

lb!  ++  lbpl     =    ge  tcluir*  >  : 

1 


e  lse       C 

for    (  lbp=0;     lbp<3t     lbp  +  -"->  '* 

putchnr    (  Ibt  lbp]  '  : 
lbt  Ibpl     =    getchar(  )  ; 

) 

if    (act  Ion    ==    ADDLINE)        C 

/*    the     first    characters    we  r  «    a     line    nnti'S.-r 


print     the     1  i  n<?    <* 


no    errors 


%/ 


while    (lbClbp]=='     '     II     ll.L  itp  !==  '  '  ) 
lbT++lbp]     =    getclwr'i  : 

swi  tch    (  lb[  lbp)  )        C 

case    OR: 

action    =    BLANK: 
break: 

case       . ' : 

ac  t Ion    =    PRINT: 

whi  le    (  1M  lbp]     f=    CR) 

lbt +  +  Ibpl     =    are  •  'bar'  )  ; 
br«>ak: 

case     ' d ' ' 

1  b  f  +  +  I  b  p  1     =    getchflri  I  : 
if    ( lb[ lbp]     =  =    CR) 

action    =     DELETE: 
break; 

case     ' m' : 

1M++Ibp]    =    gretchar<); 
if    (lbt  lbp]     ==    CR» 

action    -    NOni FY; 
break: 

case     ' q' s 

ac  t  Ion    =    QUIT; 

IbtO]     *     'E': 

for    (  lbp=  1  :      lbp< ":      lbp++) 

lbl  lbp]     =     •«•  ; 
Ibt  lbp]     =    ge  tchar<   '  ; 


/*  wait  for  1st  non-blank  */ 
/*  depends  on  1st  non-blank  */ 
'*     -nler    a    BLANK   LINE  */ 

/*    PRINT    a    blc-k    of     lines  */ 

•x*    read    2nd     1  iiie    number    */ 

'*    DELETE    a     1  i  ne  */ 

/*    li'xt    char    roust    =     new  I  Ine    */ 

/*  print  and  MODIFY  e\  line  #/ 
/*    11°  xt    char    must     =     new!  ine    *  •' 

/*    QUIT    the    ed  i  tor  */ 


/*    put     ' E0OO0'     in    LB  */ 

.'*    get    next    char  */ 


If    (act  Ion    =  *    ADDLINE)        C 
whi  le    (  1)        t 

lbt  +  +  lbp]     =    ge  tchar<  )  : 
If    ( lbp    >    254)        I 

error (   "LINE    GREATER   THAN    256    CHARACTERS "  > 
re  tarn ; 
] 
If    (  lbt  lbp]     "     '.'l        C  '*     If     ' 


/*    ADD    a    n«»w    1  ine  */ 

-'*    read     the    console  */ 


lbl  ++lbp]     =     »e  tclinrf  ) 

if  (  ibt  ibpl   ==  cm 

br»Bk; 


Is    read,     c he c  k 


if     it     is     the    EOL  */ 

*    a     ". (cr) "     is    E«L  */ 


J 


while    ( Ibt Ibpl      !  =    CR) 

lbt  lbp]     =     ore  t  char'): 
lbt  Ibpl     =    EOL: 
re  turn; 

) 


/-*  conp\nr.    ■; 


compare    ( )        { 


/*    wait     for    no  w  I  i  n< 


/*  compares     the    <*urr^tit      I  >  "<■     fiml>»r     bnffer.  CLN .     "^ith     t  ho      (     ;ie       */ 

/*  number     In     the     1st     i"  I  v     char     In     t  1t=     Input  1  i  n<^     buffer.     LB 

/*                 i  f      CLN    >    LB            the>>           C    =     I  */ 

/*                           CLN    =    LB                               C    =    2  */ 


r.n 


/*  CLfl    <    LB  C    =    3  ■*/ 

Int    c . k; 

for    (k=0;     k<."i;     k++)        ( 

if    (clnfkJ     --     lbfkl)  /*    char    are    e  qua  I  :     cent    */ 

c    =    EQUAL; 
else     if    'clnCkJ     <     IbCkl)        [  /*    not    equal:     halt  */ 

c    =    LESS: 

break; 

\ 
j 

eNe     If    (clntk]     >     IbtkJ^        C  '*    not    equal:     halt  */ 

c    =    GREATER: 

break.; 

3 
) 

r°  turn(  c  )  ; 
3 

/*   UPLINE  ■-■ ' 

up  1 ine (  )        C 

/*    Finds     the    next     larger     '  :  «;e    number    and    movegi     the    current     line    */ 
/*       to     the     low    memory    area.  t-/ 

Int    j: 

temp    =     '0' ; 

whl  le    (  temp     F=    EOL)        (  /*    move    char    unt  i  1    end       */ 

temp    =    mem[+-  +  cpll     =    m<?  r.C  c  p2++ 3  ;  /*    of    the     line  */ 

3 
for    <J*01    J<5;    J+.+  )  /"*    move    next     1  ine    #     to       */ 

clnljl     =    mem[cp2+.|;  :  /*    curr     line    buff  */ 

re  turn: 


/*  DovmLJ.-fE  */ 

downl lne< )        f 

/*      Finds     the    next    smaller     line    number    and    makes     It     the    current    */ 

/%       line     In    the    high   core    area.       The    pointer    cp2    indicates     the       */ 

'    /*       betflnlnr    address    of     the    current     line.  */ 

int    J; 

memC — cp2]     =    mem[cpl--]  ;  /*    move    EOL    char  */ 

t  e  mp    =    me  uC  o  p  1  ]  ; 

while     l  temp     \-     EOL)        (  /*    move    char    until    EOL       */ 

mem[ — cp2J     =     temp; 

t  e  rap     -     m«»  m[  —  c  p  1  1  ; 
) 
for    (J=0;     J<H;     J++)  /*    move     line    *     to    curr       */ 

clntj]     =     mem[  cp2-*-.l  1  :  '*  line     number    buff  * ' 

re  turn; 
3 

/*    SEABCR   */ 
search)  )        C 

/*  Searches     the    memory    ar«a    until     the     line    number     is     found.  */ 

/"*  (     or     the     next      lnrsr«»r     line     number     for    an    add     request).  */ 

/'*■  This     line     Is    made     the    current     line     number    and    pointer    cp2  #/ 

/*  1  u<l  1  c  a  t  e-»     t  he     f  Irs  t    a  :ld  ress  .  *■■' 

Int    c  ; 

If     (action     F=    ERRl        C  /*    no    error    ha."    been    detected  */ 

c    s    compare'.  )  :  /"*■    compare    New   and    Current    LP? '  s    #/ 

switch   (  c  )       ( 

* 
ca^e    GREATER:  '"■    NLN    <     CLN  */ 

whl  Ie     (c     =  -     GRT.ATER)         C  >"    move     dov.-n     In    memory       **' 

down !  i  ne  '    ' 

c      =       •  .» trip-)  "  '    ; 

3 


If  (c  ==  LESS)  '*  passed  line  move  up  I*/ 

up  1 i  ne <  >  ; 
break: 

caie    EQUAL:  '*    NLN    =    CLN         halt  */ 

break.: 

case    LESS:  •:*    NLN    >    CLN      move    up         #/ 

while    (r    ==    LESS)       ( 
up  1  i  ne  (  )  ; 
r     -     to  mp~>  "•«■  I  )  : 
} 
3 

if    (  (ac  t  lon—ADDLINE  ac  t  ion=  *  BLANK)     An    c==EQUAL) 

'*     'up  1  irate     line    nurnter     for    a    new    line    */ 
error( "DUPLICATE    LINE   NUMBER"); 
e  lse 

If    ( ( ac t lon==MODIfY    .1     ac t ion== DELETE     II     ac t ion= =  PR' NT) 
88    c     !=    EQUAL) 
/*    a    modify,     ,,.elete<     or     print     request    and     tlie 

line     is     not     found.  */ 

error*  "LINE    N^fMLER    NOT    FOUND") j 


re  turn: 


ge  tsym(  )        C 


•*    GETSY71   */ 


/*    Finds     the     length    of     the     symbol     print     name     in     the     1  i  n«     buff.        */ 
/*  SBP     Indicates     the     1st    character    of     the    symbol  */ 

/*  LBP     indicates     the     1st     blank,      tab.     or    period  */' 

1  n  t     1  ; 
sbp    =     Ibp : 

for    (  1  =  0:     1<  17;     1++)        f 

If    (Ibflbp]"'     '      M     lbCIbpl=="      M     lbf  lbpl  ==  '  .  '  ) 

re  turn!  1 )  ; 
e  lse 

lbp++ ; 
J 
re  turn    (  1 )  ;  '*    r<>t  urn     the     1  eng  t  h  */' 


'*    rtATCH    */ 


am  tch    (  1) 

Int     I:        f 


/*    Compares     the    symbol     print     name     indicated    by    the    SBP     to    all  */ 

/■*     the     pr  i  n  t     names     In     t  he     symbo  1     t  a  b  1 «»     .in  til     a    ma  tch     is     f  o  und .        */ 
/*    The    parameter     "1"     Is     the     length    of     the    print    name.  */ 

int    addr , e  q, k.  tn: 

addr    =    —16:  /*    beerining    of    syw    tab       */ 

del    =    0:  /*    delete     Is     false  */ 

eq    =    0;  -'*    equal     is     false  */ 

while     (eq    ==    0    80    addr    <     -n>        f 

/*    compare     until     pqua  1     Is     tru«»    or     t  h<*    end    of     the    symbol     table  */ 

add  I*    *+     16 1  ':*    iifxt    ad'lres"     In    P.T.     */ 

e  q    =      1  ; 

If    (sttaddr]     <     0)        f  *     tlv    delete     flag     is    set*/ 

s ti addr]     =8    0177; 
d  M    =     1  : 
) 

for    (  k=0;     k<  1  :     k+  +  )  *    r^mpare    all    char  */ 

if     (lbtsbp+ki      ?  =     •=  »r  addr  +  kl  > 
e  q    -    0  : 
If    '  °q    ==     1) 
/*     Insure     I  lia  t      th^     t'(>-:        i'fir     In    sym     fnh     Is  'end    of     rmme  )  ^/ 


If    <k<15    38    st[addr+k-M]     !=     V") 

pij    =     0; 

If    Ciel    ==    1   88   ei  ==    01       ( 

/■*    found    a    deleted    nair"    :iad     it    doesn'  t    match-'     restore     f  iapr       */ 

del     =    0; 

sttaddr]     =1    O20O-, 
J 
) 

if     (eq    ==     1>        C 


/*    nany?    matched,     return    the     token    number  */ 


tn    =    addr    >>    4 
re  turn    (  tn)  : 

} 

»  lse 

re  turn    ( -  1)  : 


en  terpn(  1 ) 

int     1;        C 


/*    ENTET.PN    */ 


/*    Copies     the    symbol    prim    nan.e     from    the     line    buffer,     located         */ 
/*    a  t    SBP    with    lengt  h     ' 1  *  ,      iuto     the    next    emp  ty   symbo 1     table  */ 

S*    loca  t  ion.  */ 

int    a  .  k ; 

a    =    0: 

while     (     9  t  E  a  ]      fa     *  /  *  )        f 

/*    Find     the     1st    entry    where     the     1st    char     Is     '/',     i.e.     empty*/ 

a    =  +     16i 

If    (a    >■    ea) 

re  turn( -  1 )  ; 
] 
for    <k=0;     k<  1  ;     k++)  /*    »ove     the    print    name  */ 

<=»  t  [  a++]     -     lbf  sbp++]  : 
sttal     =     '/';  /*     Insert    end    of    name     char       */ 

return    (a>>4);  /*    Return    the     token    number       */ 


/*   TOKEN IZE   */ 


token  lze<  )        C 


/*  Converts    a     line     In     the     Procedure    Division    to     token    numbers  */ 

/*  and    puts     them    in     the     i^hen    buffer,     TD .        The    TB     is     then    moved  */ 

'*  to     the    memory    area.         If     the     line     is     in     the    Data    Division    an  */ 

/*  entry    In     the    symbol     tabl^     is    made.        Lastly,     all     lines     in     the  #/ 

/*  Identification,     Env  Iro  tii>ir  u  t  ,     and    Dn  ta     Divisions     are    copied  */ 

/*  directly    from    the     line    buffer     into     the    memory    working    ar^a  *'' 

-"*(!.«.      In    ASCI  I)  .  */ 

int    J , ta. length) 

char     t  : 

If    (lbC01==,D'    83    (lbCl]!=-0-     II     lb[2]f='0'     II     lb[3]!='0'     II 
lbL41?='0')     85    lbCbJ     f=     '*')        C 
/*     line     is     in    the    Pro-".     Div    and    not     a    comment    or     the    header    */ 
tbp    =     lbp    =    0» 
wiii  le     (tbp    <     5)  -*    Move     the     line    *     to    TB*/ 

tbl  tbp  +  +]     =      lbT   Ibn--^1  : 
while     '   IbC  lbp]      ?=     EOl/)        I  -'*     find     tokens     until     EOL*/ 

swi  tch    (  lbt  lbp]  )        ; 

/•*.    switch     is    !••,.-. •■!    on    the    nc-xt    character     in    LB  */ 

f ase     '     '  • 

tbttbp++"     "    SPACE:  /*    T>k-n    "     for    blank  */ 

lbp++-  : 

brrak: 

case     ' 

fbCtbp  +  +l     -     TAB;  '■     Token    -     for     TM,  *,' 

1  b  p-t-  +  : 


break: 


case 


tb[  tbp++] 

lbp+J-; 

break; 


PERIOD; 


/*  token  *  for  PERIOD 


*/ 


case  '0>' 

case  '  1  ' 

case  ' 2 ' 

case  ' 3 ' 

case  '4' 

case  ' 5  * 

case  ' 6 ' 

case  ' 7 ' 

case  '8' 
case 

case  '  + 

case  '  - 


9' 


/*  Symbol     Is    a    LITERAL:  */ 

>'*  clieck    the    sym    taLIe  #.' 

'*  for    a    match    else  */* 

/*  make    a    new   eutrv  */ 


length    =    ?etsym( ) ; 

If     ( length    ==      17) 

/*     literals    can    be    more     than     16    char:     reset     lbp    */ 

lbp — ; 
tn    =    match*  length)  ; 
If    ( tn    <     0)        C  /*    no    match    found         */ 

tn    =    enterpn( length) : 

1 f     (  tn    <     0)        { 

errorf   "SYMBOL   TABLE    FULL"); 
re  t  irn  ; 

] 

t    =     tn; 

tbC  tbp++]     =     t  ; 

break ; 


default:  /*    a    symbol    print    name 

length    =    <?e  tsym(  )  ; 
If    (length    ==     17)        C 

error(   'NAME    GREATER   THAN     16    CHAR") ; 
ret  urn ; 
) 
e  lse       C 

tn    =    match(  length)  ; 
1  f    (  tn    <     0)        C 

error' "NAME    NOT    IN    SYMBOL   TABLE"); 
return; 
) 
else        C 

t     =     tn; 

tbC  tbp++3     =     t  ; 
) 


*/ 


/*    put     token    In    TB      */ 


) 


/*     Insert    EOL    In   TB    */ 


tbC  tbp++]    =    EOL; 

If    ((cp2-cpl)     >     tbp) 

/*     Insure     there     Is    room    In    memory    for    the    buffer 
for    ( J  =  <*;     J<  tbp:     J++) 

memC  +  +  cp  1  J     =     t  b [  j  1  ; 
e  lse 

error(  "MEMORY    FULL')  : 
3 
e  lse        C 

If    (  1M0]     = 


C  )        ( 


lbp    -    3 i 

whi le     <  IbC  lhpl == 

lbp++; 
if    (  lbf   lbp]     -=     •«' 


/*     line     is     In     the    Data    Dlv       */ 
''*    search     fro     1  Ine     *    *■/ 
I      lb[   lhp]^      '  '  ) 

Ibt  lbp]     ==     '7')        C 

/*    entry     is    n    data    d  e  f  i  n  i  t  5  n n  */ 


whi  le    (  (  IbT  tbpl'  'a'     II     1M   i'-p  "i  N  '-  '  )     86     I  M  1  bp]  \-  '  .  '  > 

-kip     to     the        ;f     nlphehetlc    char    >t    EOL         */ 


lbp++: 
J    =    ge  tsym(  )  : 
if    (j    ==     17)        C  /*    name     is     too     Iotir    */ 

error!  "NAME    GREATER   THAN    16    CHAR" » : 

re  turn; 

~lse     If    (  .]     ==    Oi        C 

error* " TNCOPRECT  DATA    DIVISION    ENTRY"); 
ret  urn; 
) 
e  lse       C 

t  n    =     ma  to  hf  J  )  ; 

if    (tn    ==     -1)        C  /*    NEK  print    narce         */ 

tn    =    eaterpni J ) ; 
\  f    (  t  n   <     0  >       C 

"i-ror!  "SYMBOL    TABLE    FULL""*; 
re  t:irn ; 
J 
} 
else     If    (  tn>=0    88    tn    !  =    FILLER)        C 

/*    found    a    match   and    not     the    name     "filler"       #/ 
errorf    DUPLICATE    SYMEOL    NAME"): 
re t  urn ; 
} 
) 
} 

while    (  lbC lbpl      ?  =     EOL)  /*       LBP     to    end    of     line       */ 

lbp++ : 
if    ((cp2—  cpl)     >     Lbp)  -'*     Insure    room    in    memory*/ 

for    (.)  =  0;     J<  =  lbps     J-1*)  '*    Move    LB    to    memory  */ 

roeinf  ++cp  I  ]     =     1M  ,|  ]  ; 
else 

error'  "MEMORY   FULL">  ; 


) 
re  turn : 

) 


decode( t ) 
c  har     t 


/*    DECODE   */ 


/*    finds     the    address    of     token    number     "t"    and    copies     the    print  */ 

/*    name     into     the     line     buffer.     LB.  *• 

1  n  t  addr . mt 

addr  r  t  <<  4;  /*  address  of  the  token  */ 

m  -    addr+ 1 6 ; 

while     (stladdrl      !=     '/'     8A    addr    <     m)  /*    copy    name     until     e nd       */ 

lbC  lbp+-H     =    st[ad'lr++); 
re  turn : 


J 


/*    BLANK   */ 
blankO       C 

/*     Inserts    a    blank     line     Into    any    division.       */ 

int    J: 

for     (     J=0;     j'3:     J++) 

raemf +  +  <' p  1  J     =     Ibfjj;  /*    Move     the     line    number    */ 

memC+  +  opl)     =     EOL;  '*     Insert    end    of     line  #•' 

re  t  urn : 
) 

/*    PRINT   >*/ 
pf lnt()       C 

/*    Pr  lnt«     t  he    c  arm  n  t     1  1  lie    on    ronsole.         (  f     t  he     1  i  ne     is     in     t  h»  #•" 

/*    Pm.'.     D'-.  .      it     i*    deeded     before    printing.        This     lino     is  %/ 

/*    tho    Rurrent     line.     i.e.     Loth    t  ho    CLP*    a  -w\    CF2    are    nnchoneoil  .  */ 

Int     .)  : 


if    (clnt0]==-D'     88    <c  In[  1}  != '0*      II    clnC23!='0'     M    c  ln[  :*■!=•  o*     || 

cInC41!*'0*)    88    merat  cp2-'-6]  !=  '  * '  )       ( 
/'*     line     is     in    the    Proc     Div    and     not     a    comment     or     the    hen'ler     line    */* 
shp    =    cp2: 
lbp    =    5; 
for    (J  =  0;    J<3;     J  +  +)  '*    print     the     lino    mm         */ 

pntchar    (nem[?bp+-t]!  : 
temp    =     memfsbp++J  ; 

while    (      temp     !  =    EOL)        C  /*    Decode     token    tinnier       */ 

decode ( temp) ; 
terap    =    meratsbp++]; 
3 

for    (J=5:    J< lbp;     J++)  '*    print     the    LB  */ 

put  char    (  lbC  J  ]  )  ; 
) 
e  lse        C 

sbp    *    cp2; 
t»mp    =    meraf sbp++l ; 

while     (      temp     f=     EOL)        C  /*    print     line     fm    memory    */ 

pntchar    (  temp)  ; 
temp    =     mem[sbp+-t-J  ; 
) 
3 

putchar(Cn):  /*    decode     the    EOL    char       */ 

re  tarn : 
} 

/*    DELETE   *• 
de  le  te  (  mod  ) 

1 n  t       mod ;        C 

/*    Deletes    current     line     from    memory    by    moving    CP2.        If     thf     line  */ 

/"*     is     in    Data    Dlv,     the    delete     flag     is    set     for     the    appropriate  */ 

/*    symbol     table    entry.         If    MOD    is     true,     DELETE    was    called     f-^w  */ 

/*    MODIFY    routine    and     the     line    buffer,     LB,     must     be    saved.  */ 

i  n  t     t  n ,  J  .  1  e  ng  t  h : 

if(lbf0]?='C)  /*    line    1b    not    in   Data      */ 

while    fm?ra(cp2++l     !  =    EOL);  /*    so    move    CP2    to    end         */ 

e  lse        ( 

lbp    =    0< 

If    (mod)        C  /*    save     the     1  ine    buff  */ 

tbp    =    0; 
whi le    (  lbf  lbp]     f=    EOL) 

tbC  tbp++]     =     lbt  lbp++]  ; 
tbt  tbp]     =  lbt  lbp]  ; 
lbp    =    0; 
1 

lbC0]     =    meml  cp2++l  i 
while    (  lbC  lbp]      \-     EOD  /*    mov~    old     line     to    LB       */ 

lbf++lbp]     =     memtrpa+^li 
lbp    *    5* 
while    ( lbt lbp]     sa     •     •      | |      lbt  lbp]     ==     ••) 

lbp++s  /*    skip    blank    rhar  */ 

If    ( lbf  lbp]     ==     '0'      II     lbf lbp]     ==     ■?')        ( 

/"*    not    an    FD    entry,     a    comment,     or    a    blank     line       sfs/ 
while    (  lbt  lbp]     <     'a1      II     lbt  lbp]     >     'z') 

lbp++;  "*    skip     to     1st    name  */ 

length    =    ge  tsyro(  )  : 

tn    r    match    (  length'  :  *    f  1  nd    symbol    name  *■/ 

if     (  tn    >=     RVORDS)        (  /*    not    a    roserver    word       */ 

j    =     tn<<4; 

gtfjl     =1     O2O0i  *    set    delete     flag  */ 

] 
3 

lbp     =     0; 

if  f  mod)   (  '*•  res  tore  1  ine  buff     *• 

ti.p  =  0: 
whi  le  (tbt  tbpl   •  =  L"OL> 

lbt  lbp  +  +  I  =  tb  }bn-*"H  i 
lbf.  Ibp++]  =  tbt  tbp  i  : 
W-p    -  O; 
) 


P.'i 


3 

for    (j=0;     J<3;     J  +  *)  /*    9M    CLIT    to    next     line    */ 

clnCjl     =    tnemC  cp24-j  ]  : 
ret  urn ; 

) 

/*    MODIFY   */ 
niodlfyO        C 

/*    calls     the    routines     to    allow    the    nod  if Irat  ion    of    a     line  */ 

*>r  lnt(  )  ; 
input'  1  )  ; 

switch    (action)        C 

case    ADDLINE*.  /*    Replace    old     line    with    new*/ 

de le  te(  I)  ; 
tokenl  7.e  (  )  ; 
breaks 

case    DELETE:  /*    delete     the    old     line  */ 

de  le  te(  0)  ; 
break; 

case    BLANK:  /*    Jo    no!    clinnce     the    old     I  ir.o  *■/ 

lbp    =    0; 
break; 

de  f au 1 1 ! 

error( " ILLEGAL  ACTION  FOR  LINE  MODIFICATION"); 
) 
re  turn; 

) 

/*    PRINT   BLOCK  */ 
prlntblkO        C 

/#  Starts  at  the  1st  line  nunber  in  the  LB  and  prints  all  lines  */ 
/*    ant  11     the    current     line    matches     the    2nd     line    number     in    th*    LB.*/ 

/*     If     the     1st    char    following1    the    comma     is    a    CR,     one     line     is  */ 

/*    printed.         If     the     1st    char     following    the    comma     Is    a     '  E'  ,     all  */ 

/*  lines  ar°  printed  until  the  End  Of  File  Is  encountered.  */ 
/*    Allowable     forms:                XXXXX,  XXX3CX   CR 

XXXXX.E    CR 

XXXXX.CR  */ 

lnt    c. 1 ; 

if    (  lb[6)     t=    EOL) 

/#     If    not    a    newllne,     write     the    2nd     line    number    over     the     1st    */ 
for    (  i=0;      1<5;      1++)        t 
lb[  |]     =     lb[  1+6]  ; 
if    (  IbC03     ==     'E' ) 
break; 
) 
c    ■    compare  (  )  ; 
while    fc     f*    GREATER)       t 

/*    print     lines    until     the    2nd     line     number     is     found    or    exceeded  */ 

pr  Lnt ( )  ; 

are(  )  t 

E'     58     1br0]     ==     'E')        C 

/*    print     the    EOF     line  */ 


up 

1  Ine 

(  )  ; 

c 

:   CO 

mpare 

(  )  I 

If 

(c  I 
pr 

br 

n[01 
Intt  ) 
eak; 

1 

] 

) 

re 

turn 

3 


/*     QTTI 


qui  t(  )        C 

/*    Th«     file    )\»<a    been    movo-t     to     t  h°     low    nr»n    of    memory    an'!    cpl  */ 


'>0 


/*    points     to     the     last    addr-ss    of     the     file.        The    symbol     table 
S*    must     be    r.  leaned    up    by   set  flag    nil    delated    p-names     to    zeros 


int    a,     j : 

for    <j  =  0;    .1<6:    j++) 

metn[  ++c  p  1  1     s     meral  c  p2+  +  1  : 
a    =    0; 
wh lie    (a    <     ea)        C 

If     (stia]     <     0)        C 

for    ( J=0;     J< 16 t     J++) 
s  tla  +  J  ]     =     ■/"  j 

a    =  +     16: 
] 
re  turn; 


/*    move    End    Of    File     lin<r 


*./ 


/•*■    Cl-ck   entire    S.T.  */ 

/*     if     the    delete     flag    is    set*/ 

■'*    set     the    entry    to     '/'  */ 


/*    uext    p-narae    entry 


*/ 


/*    IWIT  */ 


ini  t(  ) 


/*    Checks     If     file     is    new.        If    «o  ,     the     top    of    file    and    end    of 

/*    file     lines    are     inserted. 

/*     If    old    or    new,      the    EOF     is    made     the    current     line    number 


Int    J.k.  I; 
1    =    0; 

for    <J=0;     j<RVORDS:     j++) 
for    ( k=0;     k<  16:     k++> 

s  tl  1  +  +]     =    sym    [  J  ]     [  kl 


ea    =    2048; 

j    =    RW0RDS*16; 
wh lie    ( J    <     e  a ) 

s  tC  J++1     = 

1 

cp2    =    ttEMSIZE; 

If  (cpl  ==  -1 
me  m[ +  +  cp  1 
roernC  +  +  cp  1 
raeraC  ++cp 1 


/*     initialize     the    symbol     table 


/*    set     the     length    of    sym    tab 


*/ 


*/ 
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raeraC  ++cp I 
me  ml ++ep  1 
memC  ++cp  1 
mera[ ++cp 1 
mem[  ++cp  1 
mem!  +  +  cp  1 

) 

down  line  (  )  i 

re  turn : 


f 
=    EOL: 

=     'A*     -     1 
=    EOL; 


/*    GP2    starts    at     top    of    memory  */ 

/*    a    new    file,      i.e.     no    i-har.s  */ 

/*    Se  t     top    of    f 1 le  */ 

/*    set    end    of     file     line  */ 


EOL; 


/*    makes    EOF     the    current     line 


*/ 


/*    EEAIHFO    */ 


head lng( )        ( 

prlntf    ("COED:     Cobo  1    Editor.       V-rslon     1.0    CR"); 


rat  ln(  )        C 
Int    h: 


/*    WAi,\    */ 


cpl    =    -1  : 

head  1 ng(  1  : 
Inl  t<  )  : 

net  ion    =     ERR; 

wht  le    <  ac  t  ion     f =    QUIT) 

Input (fl»! 

s"  r\v  lit  )  ; 

switch    (act  Ion)        f 


/*     for    TEST   only 

/*    prints    heading    line 
'*     initializing    routine 


*    •  ■  -i  t  i  1     user    s e z     "quit" 
'*     r-n'l     the     console 

I   i  n<l     the     desired     line 


*/ 


lO    t    i  r>  tl 


Is     set      in 


i  p  u  t     *  / 


<M 


cos**  ADDLINF: 

token  ize  '   )  ; 
break: 


/  *    ADD    a    new    ]  1  ne 


*/ 


cas»    MODIFY: 
modify*  >  : 
break: 


/"*    MODIFY    nnold     1  i  ne 


*/ 


case    DELETE: 

de le  te(  0)  ; 
break; 


/*    DELETE    an    old     lire 


*V 


case  BLANK: 
blnnk(  )  : 
break: 

caige  PRINT: 

pr  Int  b  Ik'  >  : 
break; 


/*  Insert  a  BLANK  LI^E       */ 


/*    print  a  BLOCK  of  liufs    */ 


caso  QUIT: 
qu  i  t (  )  ; 


) 


for    (h=0;    h<=cpl:     h++) 
putchar(  rneml  hJ  )  t 

for    (h=0i     h<ea;     h++ ) 
putchar    (  s  t  [  h]  )  ; 


3 


/*    QUIT    the    ed  1  tor 


*/ 


/ *    mo  ve    me m    area     to     f  i I ft  #/ 
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SOURCE  LISTING  --  COIN 


f  Ine 

SPACE 

f  Ine 

T\B 

f  ine 

PERIOD 

f  ine 

NEWLINE 

C  I  ne 

COMMA 

f  I  ne 

COMMENT 

f  ine 

ACCEPT 

f  i  ne 

ADD 

f  ine 

TO 

f  1  ne 

ROUNDED 

f  I  ne 

SIZE- ERROR 

f  I  ne 

CALL 

f  i  ne 

CLOSE 

f  1  ne 

DELETE 

f  i  ne 

INVALID 

f  i  ne 

DISPLAY 

f  1  ne 

DIVIDE 

f  i  ne 

INTO 

f  ine 

ENTER 

f  I  ne 

EXIT 

f  1  ne 

CO 

f  ine 

DEPEND  I NO 

f  Ine 

IF 

f  ine 

NEXT 

f  ine 

ELSE 

f  i  ne 

MOVE 

f  i  ne 

MULTIPLY 

f  ine 

BY 

f  1  ne 

OPEN 

f  ine 

INPUT 

f  ine 

OUTPUT 

f  ine 

PERFORM 

f  ine 

THRU 

f  ine 

TIMES 

f  Ine 

UNTIL 

T  Ine 

READ 

f  ine 

END 

f  ine 

STOP 

f  i  ne 

RUN 

f  i  ne 

SUBTRACT 

f  i  ne 

FROM 

f  1  ne 

WRITE 

f  1  ne 

BEFORE 

f  ine 

AFTER 

f  i  ne 

ADVANCING 

f  Ine 

PACE 

f  i  ne 

NOT 

f  1  ne 

GREATER 

f  ine 

LESS 

f  1  ne 

EQUAL 

f  ine 

NUMERIC 

f  ine 

ALPHABETIC 

f  1  ne 

EOL 

f  i  ne 

MEMSIZE 

F  1  ne 

MAX 

f  ine 

ON 

f  1  ne 

OFF 

f  1  ne 

TRUE 

f  i  tie 

FALSE 

f  ine 

NUL 

f  1  ne 

EOF 

f  Ine 

a  d.l 

f  1  ne 

sub 

o 

1 

o 
3 

4 
5 

6 

7 

3 

9 

1« 

1  1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

28 

29 

30 

3  1 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

40 

49 

50 

5  1 

0  177 

40<*6 

0256 

oooi 

ot)00 

!>O00 

000  1 


o- 


COBOL   INlT.Rpn.ETER 


C«>IN 


/*    Th^     following     tnbl**:*    pro    >i<**  ■!     Frv 


th« 


mie  f  i  c     ro  n  t  1  ne« 


In 


93 


/*    the     Imp  1 inenta t ion    of     this     interpreter    on    a    microcomputer,     these    *• 
/*    tables    woul'l    be     In    ROM.        Thus     the    access     time    would     be    nppror-  *•' 

/*     imately    equal     to     the    memory    cycle     time.  */ 


char  *addtabl  [  10]  C 
"0120456789" 
"  1234567890" 
"234567890  1 " 
"3456789012" 
"4567890  123" 
"5678901234" 
"6789012345" 
"7890123456 " 
"8901234567" 
"90123456^8 ' 
0 

3: 

char  *addtab2  [ 10] 
•0000000000" 

'0000O00O0  1  " 
"000000001  1  " 


"0000000 
"000000  1 
"00000  1 1 
"0000  1  I  1 
"0001 1 1 1 
"00  1 1111 

"0111111 

0 


1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 


/"*  addition  sum  table 


*/' 


/*  addition  rarrv  tr-ble  */ 


} 


char  *sub  tab  1  [  10] 
"99876  54321  ' 
"  1 098765432 ' 
"2109876543 
"3210987654 
"4321098765 
"5432109876 
"6543210987' 
"765432 1098' 
"0765432 109' 
"9876543210  " 
0 

)| 


/*  subtraction     table  */ 

/*  this     tabl«»    assumes  #/■' 

''*  that    sub  tab    f  x  ]     [  y]  */ 

/*  means    x    -    y  *■/ 


char 


} 


*sub  tab2 

r  if 

"01111111 

1 " . 

"001 11111 

1 ". 

"0001 1111 

1 

"00001  1  I  1 

1 " . 

"00000  1 1 1 

1 " , 

"000000  1 1 

1 ". 

"00000001 

1 " . 

"00000000 

1 " , 

'00000000C 

M  ", 

"0000O0O0* 

>0 " . 

0 

/*    borrow    tabic 


■#./ 


char  *mnl  tab  1  [10] 
"0000000000" 
"0123456789" 
"O246802463'' 
■0369258147" 
"0482604826 " 
"0505050505 " 
"0628406284 " 
"0741852963'' 
0864208642 ' 
"098765432  1 " 
0 

): 


*  LS D  of  product 


r./ 
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char    *mul tab2    E  10]        C 
■0000O000OO  ■  , 
'000000000(4"  , 

"000001  nil", 

"000O1  1 1222"  , 
"0001 122233". 
"00  1 1223344"  , 
"00  1 1233443", 
"0012234456", 
"0012344567" , 
"0012345678", 

0 

); 


/*    MSQ    of    produr t 


*•' 


int     length       0; 

int    errflu;       OFF 

: 

char    s a ve 

char    memC  MEMSIZE1  : 

int     pc ; 

int    sptr; 

c  har    sbuf f  161; 

c  ha  r    xs  ,  y  s  : 

Int    x 1 , x2 , x3 . y 1 

,y2, 

y3,n; 

char    xbf.321  ,  ybt ' 

121  , 

temp[  321 

int    sp      -  1 

int    c  n  t  r  [  8 1 

Int    r  tn[ 8] 

int    <*xt[8] 

c  har    psav»  ; 

int    cp 1 . c p2 : 

i  n  t    begproc  : 

/*    byte 

i  n  t     begda  t  a  : 

/*    byte 

int     base; 

/*    byte 

int    eond  p  t  r ; 

char     lb(256]  ; 

int     lbp                0t 

Int    c  1 nT  5 '  ; 

1  n  t     X                     0 : 

int    y 

[  : 

/%    byte    accessible    me rao ry    array  *  / 

'*    program   cnti byte    offset     in    roera  */ 

/*    search    buffer    pnti byte    offset  */ 

/*    search    buffer       */ 

/*    sign    bytes     for    x    and    y    buffers  *■/ 

,  c[32J;/*    operand     buff     for    math    routines  */ 

/*    stack    pointer     for    PERFORM    verb  */ 

/*    counter    stack    for    PERFORM    vPrb  */ 

/*    rtn    addr    stack    for    PERFORM    verb  */ 

/*    exit    cond    stack    for    PERFORM    '«rb  */ 

/*    memory    pointers  —  byte    offsets  *  ' 

offset — init     to     beginning    of    pi-oc     iliv  #/ 

offset — Inlt     to    beginning    of    data    <i  i  v  */ 

offset — init     to     beginning    symbol      (able  *■/ 

/*    condition    putr     for     IF    verb  *-' 

/*     line     buffer  */ 

/*     line     buff    pntr — byte    offset  */ 

/*    current      1 i  rie     number  */ 


/*     READm     */ 

readlnO  C  /*    This    routine     initializes    2    memory    pointers — one       */ 

/#       at     the    beginning    and    one    at     the    end  —  and     repds       */ 
/*        In    a    predefined     Input     file    until    eof    or     the    2  -:/ 

/*       pointers    meet.  .  */ 

cpl    =    -1; 
cp2    =    MF.MSIZE: 
save    -     ge  tch»r(  )  s 

whl  1-    (save        t=    EOF    ^0    cpl     '=    cp2)        C 
m^mt+  +  epl]     =    save; 
save    =    getchar(  )  ; 
) 
If    (^pl     f=    cp2)     C 

m»»mr  +-t"  p  1  1     =    save;  /"*    write    EOF     Into    r»mory    */ 

length   =    cpl; 
1 

e  I  se  C 

printfl  "PROGRAM  EXCEEDS  AVA I L ABLE  MEMORY "  )  ; 
»rrf!«  -  ON; 
) 

re  t  urn ; 
)  / *       end    read  i  n       */ 

/*     vriteott    t./ 

vrr  1  teo  >l  t  '.  '  C 

will  1  <•     (     cpl     !=     length) 

meraf +J-c  p  1  1     =    merof. '*p2++ 1  ; 
cpl     =     O; 
I  o  o  p  4 : 


^5 


while'^Dl     !=     length   33    memtcpl]     !  =    E<~>L) 

p»f..har(  meinL  cpl  +  +]  >  ; 
If    (cp!     !  =     length)        C 

pii  t  char  (  '  **  )  ; 

gr>  t  O       Ioop4  J 
) 

re  turn ; 
}  /#    end    vr i  feout       */ 

/*      COMPATIE      */ 

compareO  C  /*  This    routino    compares     the    current     line    number  */ 

/*  bnffer,     cln,     with    the     first    5    character?     in     the  */ 

/*        line    buffer,      lb.  */ 

/*       If    cln    >     lb    a     1     is    returned;  */ 

/*        If    cln    =     lb    a    2     Is    returned;  */ 

/*        If    cln    <      lb    a    3     is    returned.  */ 

Int    corap.k; 

for    (k=0;     k'5;     k++ )        f 

if     (clnCk]     ==     lbCkJ)  /*    char    are    equal:     ^ont    */ 

romp    =    EQUAL; 
el?e     if     (clntkJ     <      lMk])        C  /*    not    equal:     halt  #/ 

comp    =    LESS; 
brf  nk; 
") 

else     If    (clnlk]     >     tblkl)        C  /*    not    equal:     halt  */ 

comp    =    GREATER; 
break : 

} 

re  turu( comp)  ; 
)  /*       end    compare       */ 

/*      UPLINE      */ 

uplineO        C    /*    This    routine     finds     the    next     larger     line    number    and  */ 

/*■      moves     the    current     line     to     low   memory   area.  */ 

int    J,     scratch; 

sera  tc  h    =     ' 0 '  ; 

while     (scratch    ?a    EOL)        C  '*    move    char    until    <-:  nd       */ 

scratch    =    raem(++cpl]     =    memtcp2++]  ;  /*    of     the     line  */ 

for    (j30:     J<5:     J++)  /*    move    next     line    «     to       *.' 

cln[jl     =    m«>ni[rp2  +  j];  /*    curr     line    buff  */ 

re  t  urn ; 
}  /*       end     upl lne        *■/ 

/*      DOWNLINE      */ 

downl  lne(  )  C  •  *  This  routin*  finds  the  next  smaller  line  nunber  */ 
/*  and  makes  it  the  current  line  in  high  core — c p2  */ 
/*  indicates  the  beginning  addr  of  the  current  line  */ 

Int    J,     scratch; 

mem! — cp2]     *    memtcpl —  3;  /*    move    EOL   char  */ 

scratch    =    memfcpl]; 

while    <  scratch    !=    EOL)        C  /*    move    char    until    EOL      */ 

mem[--cp21     =     scratch; 

S'-ratch    =    me m[  —  cpU  i 
1 
for    (j  =  9;     J'5:     J++)  '"*-    mo  v*>     line    #    to    curr       */ 

clnfj]     -     meraf cp2+J ] ;  '*  line    number    buff  */ 

re  turn; 
]  /*&      end    downline       */ 

/*      TOKEN      */ 

token( )  f  /*    This    rout  ire    returns     the    next     token 

uurnt>e  r    scanned.        */ 

whl le< meraf pc*+l     <     COMMENT > 

/*    skip    periods,     '.•oremas,      tabs,     and    blanks  */ 


Of, 


re  tnrn(  ineitif  pc  ]  )  ; 
}  /*       end     token       */ 

/*      FIND      *' 

flnd(>        C  /*       This    routine    3t>arrhe<i     the    data    division    nnt  i  I     :t 

finds    a    match    ^ith    the    name     in    sbuf ,       */ 
int     i; 
loopl : 

1     =     0: 

while     (I    <     16    SS    sbufC  •]      T=     NUL    &Q    sbuffi]     ==    mern[cp2]N     C 
1++; 
meraL  ++cp  1  ]     s     metn[  n  p2"<-+  ]  ; 

if  (i   ?=    i*  a&  sbuftn    ?=  rn;L>     c 

1     =     0: 

mpra[+  +  cpl]     =    mera[cp2+  +  .l  ; 

$yo  to     loopl; 
3 

/*       cpl    now    points     to     the     last    character    of     the     identifier       */ 
for    (  i  =  0;      K16;     i++)  '%    zero    out    sbuf       *,' 

sbufr  i]    =  rnrLi 

re  turn; 
3    /*   end  find   */ 

/*   INITVAL   */ 


initvaK  )  C  /*    This    routine     initializes    variables     in    the    data 

division     that     have     the     "value'     clause.        An     '  =  ' 
sign    and     f he     Initial     value     Is     Inserted    directly 
following:     the    clause.  */ 

Int     1  i 

lb[01     =     'C;  .'*    fill     lb    with    line    *    o  f    data    division   */ 

for( l=0r     i    <     5;     1++) 

IbC  U     =     '0*  » 
while    'compared     f=    EQUAL' 

/*    move     1  inff     to     low   cor-*     til     top    of    data    div         *■/ 
down  1  1  ne  (  )  ; 
begrdata    =    cpl    +1:  /*    byf^    offset    of    first     line    •*    of    data    div   *■/ 

8buf[0]      =       ' V ; 

sbufL  11  =  a' ; 
»bufC2]  =  '  1  *  i 
sbuf[3J  a  'n'  ; 
abuf[4]  =  "e': 
while    (     cp2     f  =    beg-proc)     f 

findO;  '*    finds    each   occarance    of    VALUE    clause    */ 

whi  le(  f(  raeraCcpll     >=     "0*     83    meinCcpl]     <=     '9*)) 

me  ml  ++cpl  1     =    me  ml  ••  p2-*-+l  ; 
sp  t r    =     cpl; 
while    ( meraf cpl]      !=     EOL^ 

nieml+  +  cplJ     =    mem(op2++]  ; 
meroC  cpl]     *     '  =  '  ; 
wh  lie     (  me  mCsptrl      !  -     '  -  '  ) 

mem(+  +  cpl]     =    raemC  •=>  p  tr++  ]  ; 
raemO+cpl]     =    EOL: 
1 

re  turn « 
)         /*      end    Inltval      */ 


/*      LOAD 


load(r)  /"*    This    ron tin"     loads    xb    or    yb  ,     'le  pending:    on 

the     valiif    of    r.     with    the    value    correspond- 
ing:   with     the     token    number     In    save.        */ 
Int    r  ;  { 

Int     1  : 

sptr    -    jaw    *     16    +    bns": 
if    (  (  memt  «ptr]     :     '0')     II     ( inemf.  sp  tr  ]     >     '?'))     C 

if     'metnlsptr]      -=      '-')  C  ■"*        n*-^ntlvc      literal        • 

xs     -     '  -  '  ; 
sp  t  r  +  + ; 
J 


else  C 

if     'memtsptr]     ==     *"•■')  C  /*       positive     literal       *V 

xs    =     '  +  '  ; 
sp  tr++ : 
3 

else  C  /*    alphabetic — find    value     in    data    div    *•' 

while    (cpl     !  =    hcgdata) 

mem[--cplJ     -    taerr.[cp2 — ]: 
for    (  i  =  0;     1    <      !6:     1++) 

sbuf  [  1  ]     =     ineraf  sp  tr++  ]  : 
f  i  nd (  )  : 
whi  le  (  mern[  cp  1 1     !=     '=') 

raemL +-  +  cp  1  1     =    meratcp2++]: 
sptr    =    cp2 ; 
3 
3 

while  (  (raomtsptrl  T=  '  .  '      \~<.  £  raernC  sp  tr]  !  -EOL)  88<  meraf  sptr]  ♦  =  !*UL)  )  )     C 
xb[  11     =    memtsptrl  ; 
i++: 

sptr++ ; 
3 

1  f    (  wemCsptr]      !  =     '  .  ')  C 

s  1    =     1  ; 
x2    =    y  1  ; 
x3    =    0; 
3 
e  Ise  C 

x  1    =     I  : 
sp tr++ ; 

while    (  (  raemC  sptr"      '  =     EOL)     88    (mentsptrl      !=    0))        C 
xb[ 1]     =     m^raT  sp  tr  ]  ; 

aptr++: 
3 

x2    =     yl    +     1; 
x3    =     1  ; 
3 
if    (r    ==     y)     ( 

for(  1  =  0)     1    <     x2:     I++) 

ybT  1]     =     xM  1  1  ; 
yi    =    xl j 
y2    =    x2; 
yO    =    x3i 
ys    -    xs: 

cp2    =    cp2    +    y2 ;     /*    value    will    be    overwritten    by   result    */ 
3 
3 

re  t  urn : 
3  /*    end     load       */ 

/*      RELOAD      */ 

reload!  )  [  /*    This    routine    reloads    a    value     from    yb     into 

the    data    division.        */ 
int     1: 
i     =    0; 
If    (ys    =  =     •-'  ) 

roemC  ++cp  II     =    ys  t 
If    (yb(  1]     «     '0'     38    y!     >     »> 

whllp     I  i     *=     yl) 

roenf  +  +  rp| ]     =     ybt  l*+J  ; 
I f    <  y3     ! =    0 1  C 

memf.  *+c  p  1  ]     -     '  .  '  ; 

while    (1    < =    y2 ) 

memf ++rpl  ]     =     ybCi+^l: 
3 

mem[  f-cp  I  1     -    EOLj 
re  t  urn ; 
3  /"*'       f  nd    re  1  oad       */ 

/*       NEXTLHT"      */ 


"H 


r.extllneC1        C  /*    This    routine    skips     to     the     first     token    of 

the    next     line.  */ 

int     1; 
If    (save     !  =    EOL) 

■whl  le    '  token(  )     ?=    EOL)  ; 
for    (  1  =  0;     1    <     5t     1++) 

clnlil     =    mem(+  +  pcl  i  /*     load    cln    and    skip     11  ne    *    */■ 

}  /"■       end    next  I  i  ne       */ 

/*      KEYVD      */ 

keywd()     C  /**    This    routine    calls    routines    by    cobo  1    key    words.     -'•'/ 

awitch(save)  C 

case    COMMENT    :  /*       comment       */ 

ne  x  t  1  i  ne (  )  ; 
break; 

case    ACCEPT    :  -'*       accept    statement       */ 

accept () ; 
br  *»ak: 

cnse    ADD    ;  /*       add    statement       %/ 

cor.ipute(  add)  ; 
break; 

case    CLOSE    :  •*       close    statement       */ 

c lose (  )  ; 
break; 

case    DISPLAY    !  /*       display    statement       */ 

d  I  s  p  1  a  y  (  )  ; 
bre  ak ; 

case    DIVIDE    '•  /*       divide    statement       */ 

d  ivlde(  )  ; 
break; 

cnse    GO    •  /*       ffo to    statement       */ 

go(  )  ; 
break: 

case    MOVE    !  /"*       move    statement    */ 

mo  ve  (  )  ; 
break; 

cnse    MULTIPLY    :  /*      multiply   statement       */ 

D1U  1  t  (   )    t 

break; 

case    OPEN    !  /*       open    statement       */ 

open'  )  ; 
b  r  e  a  k : 

case    PERFORM    :  >'*      perform    statement       */ 

per  form*  )  ; 
break; 

case    READ    !  /'*       read    statement       */ 

read ( ) ; 
brenk; 

cane    SUBTRACT    !  <'"       subtract    statement       */ 

CO  inpu  te  (  sub  )  ; 
bre?>  k: 

Cn^«»     V'RITE     '■  ';*       write     statement        */ 

wr  i  t  e  (  )  ; 
b :'  e  o  k  ; 

default:  s:    syntax    error    */ 

errf Iff    =    ON; 
errmsg<  "INCORRECT   REWORD    FOLLOVTNG   CONDITIONAL    OR    ELSE") 


<j9 


}  /■*    ~nd    switch   stntement    *• 

re  turn: 


/%      COND      */ 

cond(  >        (  /*    This    routine    evaluates    a    oondif  local    phrase    and 

returns     true    or    false.        */ 
char     tempi,  temp2; 
save    =     tokenO  ; 

lf((t*»rap2    =     tokenO)     ==    NOT)  C 

tempi    =    NOT; 
terap2    -     tokenO  s 
) 

swl  tc  h(  terop2)  C 

case    NUHERTC    :  /*      numeric?      */ 

sptr    =     save    *     16    +    base; 
if    •  me  ml  s  p  t  r  J    <  =     '  9  * ) 

temp2    =    TRUE; 
e  lse 

temp2    =    FALSE; 
brocik: 

case    ALPHABETIC  :  /*      alphabetic?      */ 

sptr     =     save  *     16    +    base; 
if    (  me  ml  sptr  ]     >     '9'  ) 

terap2    =  TRUE; 
else 

temp2    =  FALSE; 
break; 

case    GREATER  :  /*      xb    >     yb?      */ 

load ( x) ; 

save     =     t  o  ken(  )  ; 
load ( y) ; 
if    fslze()     ==    GREATER) 

temp2    =    TRUE; 
else 

temp2    ■    FALSE; 
break: 

case    LESS    I  /*      xb    <     yb?      */ 

Ioad(x)  ; 

sa  ve     =     token(  )  i 
load ( y) ; 
if    <*lze()    ==    LESS) 

t<»mp2    =    TRUE; 
e  1  s^ 

temp2  =  FALSE: 
break; 

case  EQUAL  :  /*   xb  =  yb?   */ 

load t x) ; 

save  =  token!  )  t 
load ( y) : 
If  (  s  lze( )  ==  EQnAL) 

temp2  -    TRUE; 
e  Is*! 

temp2    =    FALSE: 
break; 

default:  /*    syntax    error       */ 

»rrmss<  "  INCORRECT   VORD    IN    CONDITIONAL    PHRASE"): 
errl'lg    =     ON; 

)  '*';       «»nd    switch    ^tnt.oicent       *•' 

if    (tompi     -  -    NOT>  C 

If    (-M  -cp2    ==    TRUE> 
t-ir,f>2    =    FALSE: 
p  I30 

t»mp2    =    TRUE; 


im> 


3 

re  turn(  teit;p2)  ; 
3  /*       end    cond       */ 

accept ( )  i 

next  1  ine '  »  : 
re  turn : 

}  /*       end    accept       */ 

c  lose (  )     ( 

ne  x  1 1  i  ne  (  >  : 
re  turn : 

3  /*       end    cl"se       */ 

display*)  C 

next  1  ine C  .1  : 

re  turn: 
)  /*       end    display      */ 

/*       GO       */ 

go!)  C  /*    This    routine    searches     the    procedure    division 

from    the    beginning    for    a     token    match.        */ 
c ha r    scratch; 
save    =     token!  )  : 
pc    =     b<*gpmc  s 
wht  le(  ( sera  tch    =     token!))     ?=    save    SS    scratch    !=    STOP) 

ne  x  t  1  i  ne  (  )  : 
i  f    (scratch    ==    STOP)  C 

errfli?    =    ON; 

errmsg!  "DESTINATION  FOR  GO  STATEMENT  NOT  FOUND"); 
) 
e  lse 

next  1  ine(  )  s 
re  turn ; 
3         /*   end  go  */ 

/*       IFS   */ 

ifs()  (  /*    This    routine    determines    program    flow    by    testing 

a    condition — If     true,      the     imperative    directly 
following    the    condition    or    NEXT   SENTENCE    Is    per- 
formed;     if     false,      the     imperative     following    the 
ELSE    clause     Is    performed,      if    present.        */ 
If     (condf ) )  t 

save     =     token!  )  ; 
if     (save     !  =     NEXT) 

keywd(  )  ; 
e  lse 

nex  t  1  1  ne  ; 
3 

e  ISO 

whlleM'jnve    =     token!))      !=    ELSE)  I  I  <  save     ?=    EOD  )  ; 
It     (save    =  =    ELSE)  C 

s a ve     =     token!  >  ; 
ke  y-wd  (  )  ; 
3 
re  t  urn ; 
3  /■*    end     1  f s       */ 

/*      MOVE      */ 

move!)        f  ,"T    This    routine    moves     the    value     in     the     first     Identi- 

fier   or     literal     into     the    ?"c»nd     identifier.     *• 
lnt     i  : 

h  a  ve     -     t  o  k  e  ii  (  )  : 
load!  -t )  : 
If    <  token'  '     !=    TO)       C 

o  i-rwc  \  "  TO    EXP  ECTED    AFTER    I  DENT  I F  I  E?     IN    MOVE    STATEMENT    ' 

errf I r    =    ON; 
3 

s  a  ve    r     tok^n!  )  i 
sptr    =    «:i--    *     16    +    bas*»; 


'0  1 


far    ( 1=0:     1    <     16:     i++) 

sbnff  i]     =    mem[sptr++J  ; 
f  lnd(  )  : 

reload');  /*    store     value     froia    yb     Into    data    division    ^z 

next  1 ine( >  : 
re  turn: 
)  y1*    end    move       */ 

/*      NATO      */ 

nane(  )  C     /*  This  routine  handles  the  processing  of  paragraph  and 
section  names.   *• 

If  (sp  r=    -n         C 

S*    then    processing    within    PERFORM   statement    */ 

If    Cesttsp]     ==    s  a  ve  >  !  '  (  e  x  t  [  s  p  1     ==     i1)        ( 
if(cntr[»p]    ==    0)         C 

exttsp]     =     0: 

pc  =  rtnCspl;    /*    set  pc  t.->  instr  after  PERFORM  */ 
sp — : 

next  1  lne(  )  ; 
J 
else  C 

If    (cntrtspl     ?=    MAX)  ( 

cntrtspl     =    cntrtspl     -     I : 

/*    perf  i:-n    proc    a    #    of     t  lines  #/ 

pc    =     b^gproc ; 
whi  le(  token O      T  =    psave) 

next  1  i  ne  (  )  ; 
next  I  i  ne  (  )  ; 

else  C  '"*    UNTIL    condition    must    be    evaluated    */ 

If    (coadtn    C 

pc    =     r  i  n  [  s  p  ]  ; 
sp —  : 

next  line')  ; 
1 
e  lse  f 

pc    =     h°  grproc  : 

whll*     '   tr»kenO      \~     psave) 

ne.tt  1  ine(  )  ; 
ne  x  t  1  i  ne  (  >  : 
) 
J 
1 

7 

e  lse 

next  1 lne( )  ; 
re  t  am ; 
)  /*      end    name       */ 

open*  )        C 
next  I  1 ne( )  ; 
re  turn ; 
)  /*    end    open       */ 

/*      PERFOR?!      */ 

perfornO  C  /*    This    pontine    causes    program    flow    to    jump     to    a 

particular    procedure    and    return     to     t  h«    «=tate- 
menl     f.  'lowing    the     perform    statement.         •/ 

lnt     1; 

I    =    0> 

rtnC+^sp]     =    pr  •  *    <sf)-v-«r    current     program    counter    */ 

cntrt sp I     -     0  : 

extCspl     =     1:  ''*    deffinlt    va  1  ue — exit     implied    at    next    procname    */ 

psave     =     fokn(^  : 

If    ((     tuve    =     token'))      ?  -     P/V.)  f 

If     (snv-    ==     THRU.'  r 

e  'c  t  :  s  p  1     B      tok»n'  '  ; 
•a  n  v»     =     to  ke  u  '   )  l 
J 
If     <  „  n  v„     =  =     TT1TT 1 1  '        f 


cntrCsp]     =    MAX: 

r  -,  ii<3  p  t  r    "     pc  ; 
3 
if    i?ave     !=    EOL)  C 

l^ad  (  x)  ; 

catrtsp]     =    xbTOl     -     '0' : 

}f      <  y2     s  =      2 ) 

cnfrtsp]     =     (citrfspl     *     10)     +     (xbCl]     -     '0')t 
;  f    (  y2    >    2)  C 

errmsgC  "PROCEDURE   CANNOT   BE   EXECUTED   >     100   Tlffi!?")) 

errflg    =     ON; 
3 
if    (  token(  )     f=    TI>TES)  C 

errrasgt  ''TIMES    EXPECTED    IN   THIS    PERFORM  STATEMENT")  ; 

errflg    =    ON; 
3 

i 

3 

if    <.&Ave    ==    EOL)  C 

po    =     b«(fproc;  z'*    search    for    proc     to    be    performed    -*-/ 

whll*'     (  tok.en()      ?=    psave  i 

next  1  i  n**  (  )  ; 
n*»x  t  1  I  ae  (  )  ; 
) 

re  turn : 
)  /*       end    perform       *'' 

/•*      ERR11SG      */ 

errnwg(err)  .'*    This    routine    prints    an    error    message    corresponding 

to    errnum    which    is    set    at     the     time     the    error 
occurred .        */ 
c  har    *err  ;        C 
Int     1  : 

prlntf(  "ERROR   OCCURRED    AT    LINE    " )  ; 
for<  1  =  0;  i    <    5;  1++) 

pu  t c  hart c Int  11); 
printf*"*"    ^s    -""'.err); 
re  tx»r  n : 
3  /*      end    errinsg       */ 

/*       SIZE       */ 

slzeO        t  /*    This    routine    returns    GREATER    if    xb    >     yb 

EQUAL     1 f    xb    =    yb    and    LESS     1 f    xb    <     yb .       */ 
Int    slz,  it 
If    (xl    >     yl)  /*    xl,     yl    contain     the    *    of    significant    digits    */ 

s  i  z    *    GREATER ; 
e  Ise  T 

If    ( xl    <     yl) 

s  1  z    =    LESS : 
e  1  se  f 

1     =    0; 

while    (  (  xbt  11    >    yMH)    88    (  ++  1         y2)  )  ; 
If    (I    ==     y2) 

slz    =    GREATER; 
e  lse  C 

1     =    0; 

whileUxbfll     ==    yb[ll)fla(++l    <     y2)  )  ; 
If    (1    ==    y2> 

slz    =    EQUAL; 
e  1  se 

slz    ~     LESSi 
3 
3 
3 
return'siz)  : 

]  .     Y.  p.  n,\      «j  \y.f  * 

/*      FILDIi?"      *- 


;or; 


fiibufo         r 

If    (  y2    =  =    0 .'  C 

while    (.~2    >    0)        C 

tenpfn — 1     =    xb[ —  i2I: 
c  [  n  I     =     '  0  '  ; 
1 
) 
else  C 

while    f  y2   >    0)       f 

tempt  n — J     =    ybC  — y2J  ; 
efn]     =     '0'  : 
] 
} 

re  turn : 
]  /■*       en  i     fllbnf       */ 

/*      COMPUTE      */ 

compute(op)  /#    This    routine    adds    or    subtracts    2    values 

depending    on     the    parame    -vr    op.        */ 
Int    opt     ( 

int    a . b ,  m.  1 , 4  if \ 

save    =     to  ke  n>  )  ; 

load(x);  /*     load's     first    operand     into    buffer    xb    */ 

save    r     t  o  Len(  )  ; 

If    (op    = -    sub )        C 

If    (savp     !=     FR0M>  f 

err  fig    =    ON: 

erring?(  "FROM    RFOIMPED    HERE    IN    SUBTRACT   STATEMENT ">  : 
) 
) 
e  Ise  i 

if    (save     •=    TO)     f 
errflg    =    ON: 
errtnsg'  "TO    REQUIUPj'    HERE    IN    ADD    STATEMENT"); 

s  a  ve    =     t  o  ke  n  (  )  : 

load(y))  ^*     loads    second    operand     into    buffer    yb    */ 

If     (  k'3     Is     y3)  (  ■"■'     x3 ,     y3    contain     the    number    of    digits     to 

the    r  i  gh  1     of     the    decimal     p"  Int  */ 

if    (  x3    >     y3)  C  / *    zero     fill     buffer    with    shortest 

mantissa     to    align    decimal    points    */ 
dlf    =    x3    -    y3; 
for     (1=1;      1     <=    d  i  f  ;      l*+) 

yb[y2+-M     =     0; 
y3    =    x3; 

e  lse  C 

dlf    =    y3    -    x3 : 

for    (  i= 1 :     I    <  =    di  ? :     L++) 

xb[x2++l     =    0; 
x3    •-    y3; 

) 

if    ( x2    >=    y2)  /*    x2 ,     y2    contain    the    total    nunb^r 

of    digits     in    each    operand 

m    =    x2: 
e  Ise 

m    =     y2: 
n    s    m: 
cCn]     =     '«'  ; 

lf(op=r;"ib)        f  '■*     to    sub  tr--c  t  .     change    sign    of     the 

f  ■r"'  f    oper.T.d    an«l     add    */ 

If       (T!!      =  =       '  +  '  ) 

is     "     ' -  '  ; 
else 

xs    =     '  +  '  : 

) 

If     (  xs     =  =     vs  )  C 

cf  nl     =     '9*  i 
while    '  '  y2    >    0)    38    ( :<2    >    0>  >  ( 


•.'  i 


a    =    xbC — x2]     -    *0'  ; 

b    =    yb[ — y23    -     'O1  ; 

terapf  n — ]     =    add  tab  1 [ a ] [ b ] 

cT  n)     =    add  tab2C  ai  :  /•  '  ; 
} 

f 1 lbuf(  >  t 
n    =    ra; 
whi  le    (  n    >    0)  { 

a    -     t emp[ n]     -     ' 0' : 

b    =    c[  n)     -     '0'  ; 

ybCn — ]     s    add  tab  If  ;, ":  i  bJ  : 


1 


e  lse  C 

swi  ten'  s  ize(  )  1        C 

case  EQUAL:  '*   xb  =  yb   */ 

y&    =  xs  =  *  + '  ; 
c[01  =  '(>•  : 
y2  =  1; 
y3  =  0; 
break; 

case  GREATER:  /*      xb  >  yb   */ 

ys  =  xs  ; 
while  (y2  >  01   C 

a  =  xbf  — :<2"     -  '0'  ; 

b  =  ybf  — >-2]  -  '0'  ; 

tempfn--]  =  s  ub  t  ab  1  [  a  ]  L  b  ]  : 

ctn]     =    sub ?ab2[ a] Lb] ; 
) 

f  1  lbnf (  )  ; 
break; 

case  LESS!  /*      xb  <  yb   */ 

xs  *  ys ; 
wh  i 1 e  <  x2  >  0  >   ( 

a  =  xbf  — x2]  -  '0'  ; 

b  =  ybf  — y23  -  '0'  ; 

terapfn--]     =     sub  t  ab  1  [  b  J  [  a  )  ; 

ct  n]     =    sub  tab2l  b]  [  a]  ; 
J 

f  1  lbuf(  )  : 
break; 
)  /*       end    switch    statement       */ 

U    =    ro; 

while    (n    >    0)  C 

a    =     tempt  n]     -     ' 0 '  : 

b    =    ctn]     -    *0'  : 

ybln — 1     ■    sub  tab  IZ  o  ;  [  b  I  ; 
i 

s 

) 

yb  [  0  ]     -    c  C  0  J  t 
y2    =    m; 
yl    =    y2    -    yS; 
re  load'  )  ; 
ret  urn ; 
1  •'*    end     ndd    */ 

/*    MULTIPLY  */ 

mu  1  t    (  )        (        /#    Th  is    rout  la*    mu  M  i  p  I  !  es     t  he     '  s  t    op-rand    by    the    2nd    and 
stores     th»    result      in     the    second    operand.  *•* 

char    p.cl.c2,e3,c4: 

lnt      a.b. 1 1,  t2,z I .  z2, i  ; 

save    =     tokenO  ; 
load ( x) ; 

If    (  token-  >     !=    BY)        f 
errflvj-    =     ON; 


o- 


-rrnu"?'  "BV   ^EftUIRED   HE.RE    I "   ?TT.-LTIPLY  STATEHEHT" )  ; 
3 

save    =     t  o  ken*  ">  ; 
load'y)  ; 

zl     =     xl+yl;  .- *     location    ';f    decimal    pt     in    tettip  */ 

z2    =    x2+yJ:  /*    nmab*-r    of    digits     in    pro.hrnt       */ 

t2    =    z2; 
for    (a  =  0;     a<-'*0;     a++ )  /#    set     the    output    buff     to    ~<vo       */ 

t  e mp [ a ]     =     '  0  *  J 

forf     yl=y2-t;     vl>=0;     yl —    )        {  /*    for    -a^h    digit     In    mnltipiier    */ 

c2    =       4    =     '  0 '  :  >"■'<    set    carry    to    asc  i  1    zero  */ 

t  1     =     ;2i 

forf     xl=x2-l:     xl>=0:     zl —     •        f       /*    for    »ach    digit     in    mnl t ip 5  icon*/ 
a     =     xM  7:l]-'0'  :     b    =     y':»    yl-'O"; 

P    =muitabl     Cal     Cbl;  /*    product    of    2    digits  */ 

c1=mu!tnb2    [a]     CbJ;  '*■    save    carry  */ 

a    =    p- " 0'  ;     b    =    c2- '0' ; 

p    =ad«l  t^b  1    [  a  J     C  b  ]  ;  /*    aid    previous    step    carry      */ 

c2-addtab2    fa]     lb):  /*    save    carry  */ 

a    =    c  2-  '  0  *  t     b    =    c  1-  '  0  '  ; 

c2=addtabl     [a]     [bl:  '  *    add    carry    for    next    ?»ep       */ 

a    =     tempt  t  l]-'0'  ;     b    =     p-  '  0  *  ; 

p    "add  tab  1     [aJ     [bl;  /*    add    result     to    output  */ 

c1=add  tab2    [a]     [  b  J  :  <■'*    save    rnrry  */ 

a    =     p- '0' i     b    =    c4-'0' . 

tempi  tl  —  ]     =addtabl     Tal     [bl;  /*    add    previous    carry.     «ve    #/ 

<-4=addtab2    ta]     [b];  /"•*    «av»    -arry  */-' 

a    =    c4-    Q' ;     b    =    c3- "O* : 

c4=addtabl     [a]     [bl;  /*    add    carry    for    next     3  tep       *• 

) 

t2 — ;  /*    decrement    temp    counter         */ 

1 

a    =    c2- '0' ;     b    =    c4-'0" ; 

terap[tll     =addtabl    Cal     Tbi;  /*    carry    is    fISD    of    output         */ 

y  1    =    z  1  : 
y2    =    z2; 
y3    =y2    -    vl ; 
fnr    (1=0:      \    <=     72;      1++) 

yb[  1 J     =     tempf  1  ]  ; 
If    (  xs     !  =     ys  > 

ys    = 
e  lse 

ys     =     '  + ' 
re  load (  )  ; 

re  t  urn : 
1  /■»:       end    multiply       */ 

/*       DIVIDE      -'•■/ 

divide' )        ( 

*Thl3    routine    use<»     the    -ion—  res  tor  intr     technique     To    calculate 
the     quotient — xb     is    divided     Into    yb    and     the    quotient     j« 
*  t orsd     In    yb .  */ 

Int       a  ,  j ,  lp.sc . z 1 .  z2; 
c  ha  r    zs  : 

save    -     fo^a'  ':  *     l»ad    operands    */ 

1  oad  (  s.)  t 

If     (  token'    I      »a      INTO)  C 

errflcr    -    W : 
errn,.--'   "INTO    REQUIRED    JXERV,     i*    DIVIDE    STATEMENT ")  : 

J 

save    -     token'  '  : 

I oad  f  y)  ; 

Sr    =    0;  f    ilivi^ion    step    fount  *'/ 

d p    =     1  ;  '*    'lis!4     position    In    temp  *•'' 

7.1     -     x  1 "  v  I  +  1  .  "     '!u'if*     proceed  ins:  */ 

for    (,ja0.    j<32;    J++)  t    -.- t     temp    to    we ro  */ 

tempi  j  !     =     '  "»'  : 


n* 


while    (xb'03     ==     '0')        C  /*    if    ITSD    is    zero,    shift  */ 

for    (J^0;    J<x2;    J++) 
xMjl     =    xMj+11: 
if    <xl     •=    0> 

xl—: 
x2~; 
) 

while    (dp      =    x2    88    a    <     16)       C 

/*    while     the    nntnber    of    digits     in     the    output     is     less     than     in     the    */ 
/*    dividend    and     the    remainder    <  xh)     is    not     equal     to    zero  %/ 

switch    I  xs  i        C  /%    switch    on    sign    of    rera  in.*/ 

C.T39        *  +        - 

/*     if     the    remainder     is    positive    subtract     the    divisor  */ 

-  *    until     the    sign    of     the    remainder    changes  */ 

so    =     ' 0'-l» 
wh lie    ( xs    =  =     '  +  * )        f 
compute' sub) ; 

SC  +  +  ; 
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tempi dp++]     =    sc  ;  /*    store    ASCII    value     in    temp  */ 

break; 

case     ' — ' : 

/'■"■     if     the    remainder     is    negative,     add     the    divisor    until       */" 
/'-*     the    sign    of     the    re/rainder    changes  */ 

sc     =     '9'  +  1  ; 
wh  i  1 e     (  xs    = =     ' -  '  )        i 

compute ( add ) ; 

sc — : 
) 
tempt  dp  +  +]     =    sc;  '*    store     ASCII     value     in     temp*/ 


b  I"  e:ik; 


/*    end    of    SWITCH    stint  */ 


for    (j=lo;     J>=0;     J — )  /*  shift    divisor     to    right  */ 

yh[ ,)+ 1 1     =    ybt  J  ]  ;  /*  for    next    cycle  */ 

yl    =    vl;  /*  adjust    char    counters  */ 

/*  y2++    ???  */ 

for    <a  =  9;     a<16;    a  +  +)  ''*    test    remainder    < '  xb »    equal*/ 

If    (xMal      F=     '0')  <"*■     to    zero  * ' 


bre  n  k.: 


<  *    ~nd    of    WHILE    stmt  */ 


If    ( xs     T=     ym)  ''*    set    sl?n    of    result  */ 

ys    =     '  -  '  ; 
e  lse 

ys    =     '  +  '  ! 
y2    =    dp    +     Is  ''*    save     length    of    output  *-'/ 

yl    ■    z  1  : 
y3    =    y2   -    yl: 
for(j  =  0-,     J    <     y2;     J++) 

ybt  J  J     =     tempi  J  ]  ; 
re  load (  )  ; 
re  turn ; 
]  /*       end    d  Ivlde       */ 

/*      MAIN      *• 

ma  in(  )       C 

/*    This    routine     reads     the    edi'or    o„*puf     f  i  '  ■-•     into    -i    char    array 
called    mem    in    memory;      initializes     variat'e     values     in    the    datn 
division:     *cane     the    procedur.     division     ?\on    l>y    token    (byte     Ivy 
byte)     for    umirmiat  leal    corrr-.'  tn»ss    and    ex-eutes    each    coinpiM- 
statement     ax     it     encounter-      it;     nain    hn  ! '•  >  -     in    sill     er  ro  rs    ••  xr :  ~ ;   I 
faulty    punctuation    or    wh-  -n     M    trails     i  he     v.';«n    for     'stop'. 


Int     1; 

print f' "COBOL    INTERPRETER.     Version    1.0    - ".)  : 

read  In'.  )  ; 

if(errflg-    =  =    ON) 

go  to    e  ad  ma  1  n  t 
down  1  ine  (  *  ;  S-    f  !  nd     las  t    EOL — beg-   o  f    syrabo  1     tnh'»    */ 

base    =    cp2    +    5;  /&    sot    base     to    byte    offset    of    sym    treble    */ 

lb[0]     =     'D';  /*     load     lb    with     1st     line    *    of    proc     •    i  v       */ 

for    (1=1;     i    <    COMMENT;     I    A+> 

lb[  i)    =     '0'  ; 
while     (compare(  )      ?=     EQUAL'  /*    raov<>     proc    div     into    high    '-ore     #/ 

down  1 Ine (  )  ; 
pc    =    --•  p2  : 
next  1  Ine  ()  ; 

begpr-jc    =    pc  ;  /*    pc    and    b?cproc    now   sr  t     to     1st    executable    ?tat    */ 

for    ( 1=0;      i     <-     16;      1++) 

sbuflU     =    NTJL;  /*    zero     fill     the    search    buffer    • 

1  n  1  t va  1();  /*     Initialize     identifier    va  1  ue-'    */ 

while    (((save    =     tokenO)     !=    STOP)     88    (errflg    ==    OFF))  C 

/%    »can    until     token    for    stop    or    error       */ 

swl  tch(  save  )  C 

case    COMMENT    !  /*       comr»nt       */ 

ne  x  t  1  I  ne  <"  )  ; 
break; 

case    ACCEPT    :  /*      accept    statement       */ 

accep  t (  )  ; 
break; 

case    ADD    :  /*       add    statement       */ 

c  o  mp  u  t  e ( add)  ; 
break.; 

cn*e    CLOSE    :  /*       close    statement       */ 

c  1  o  9  e  (  )  ; 
break; 

case    DISPLAY    ■  /*       display    statement       */ 

d  l»p  lay(  1  ; 
break; 

case    DIVIDE    :  /*       divide    statement       */ 

dlvlde(  )  ; 
break; 

case    GO    :  /l*       gfoto    statement       */ 

«o()  ; 
break; 

case     IF    :  /*       if    slateraent       */" 

lfs( ) ;       , 
break; 

case    MOVE    '■  /"*       movn    statement    */ 

rao  ve (  )  i 
break; 

case    MULTIPLY    :  '*      multiply    statement       */ 

mu  1  t (  )  ; 
break; 

case     OPEN     :  /*       op"!!    statement        */ 

oppn(  )  ; 
break: 

roi!<.    PERFORM    :  '*       perform    statement       */ 

per  form'  )  : 
broa  k : 

cas»    READ    •'  /*       read    "tnt^ment       */ 

r»ad(  )  ; 


ion 


break; 

case    SUBTRACT    :  /*      subtract    statement       %/ 

comput  e  (  «»ub)  ; 
break; 

ease    WRITE    :  /*       write    stafement       */ 

wr  i  t  e  (  )  ; 
break; 

delault:  •  '     label    proc    nrrne  ,  sec  t  ion    name    or    error    */* 

name  (  )  t 

}  /*    end    switch    stitcment    */ 

) 
e  nd  ma  I  n  : 

wr  i  t  e  o  u  t  (  )  ; 
3  /*       end    main — return    to    monitor       */ 
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